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Format of the FORTRAN IV Manual 

The FORTRAN IV User's Manual has been segmented into three parts. Part I consists of a 
description of the DGC FORTRAN IV language. Part II describes the FORTRAN IV interface to 
the DGC operating systems. Chapters 1, 2, and 3 of Part II apply to users having either SOS, 
RTOS, or RDOS. Chapters 4 and 6 apply to users of RTOS or RDOS, and Chapters 5 and 7 
apply only to users of RDOS, The third section of the manual consists of appendices which 
may be used with both Part 1 and Part II of the manual. 

Features ol FORI KAN IV 

Data General's FORTRAN IV for the DGC family of computers is an implementation of the 
ANSI FORTRAN Standard X3. 9-1966 plus extensions. Certain restrictions in the interest of 
compiler efficiency and the run-time stack placement of variables will be noted In this manual, 
where pertinent, and summarized in Appendix C. 

All improved features of FORTRAN IV, including complex arithmetic, logical expressions, 
labeled COMMON, DATA initialization, and run-time FORMATS, are included in Data General's 
FORTRAN IV. Thus, the DGC computer user has a widely known language fully adapted for any 
major computer application. 

Extensions include certain Important features of FORTRAN that are not yet standardized. Some 
of these are double precision complex arithmetic, mixed mode arithmetic, generalized subscript 
expressions, abnormal returns from subprograms via a dummy variable, Hollerith constants 
surrounded by quotation marks or apostrophes, array declarations in which the lower subscript 
bound need not be one, full word bit-by-bit logical operations, a string FORMAT descriptor, 
reentrant subroutines, and end-of-file and error returns from I/O statements. 

Extensions to I/O offer the user a choice of standard formatting or simplified input/output using 
either conversational I/O from the teletypewriter or programmed, unformatted I/O. Both ASCII 
and binary I/O are implemented. All 1/0 can be device independent with devices assigned to 
channel numbers at run time. 

The code generated provides optimized register and storage allocation and reentrant machine 
language code, which can be interfaced with assembly language code. Since the generated code 
is in the form of assembler source code, the user can include segments of his own machine language 
code directly in a FORTRAN-generated program. An option permits the user to intersperse 
assembly language instructions with FORTRAN statements in the FORTRAN source code as well. 
Another option allows the user to selectively inhibit the compilation of any source statement. 



Additional Reference Material 



Insofar as feasible, the FORTRAN IV manual constitutes a complete guide to the FORTRAN 
user ' s needs under any DGC operating system. For more detailed descriptions and further 
uses of the operating systems and related utility programs, refer to one or more of the following 
manuals: 
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CHAPTER 1 
FORTRAN PROGRAMS 
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A FORTRAN program is made up of one or more program units. Program units are separately 
compiled entities that may be any of the following: 

1) Main program 

2) Subroutine subprogram 

3) Function subprogram 

4) Block Data subprogram 

5) Task subprogram* 

A FORTRAN program can have only one main program as a program unit. 

FORTRAN program units are implemented as reentrant programs. All variables and arrays not 
declared as being in COMMON storage (see COMMON statement. Chapter 7) are placed on a run- 
time stack. Repeated entry prior to taking a RETURN can be made to any program that does not 
alter COMMON storage. 

LINES OF PROGRAM TEXT 

The source text of a program unit consists of those ASCII characters that make up the FOP.TR_AN 
character set. The text is divided into lines and terminates at an END line. An END may appear 
anywhere on the line, starting at or after character position 7 and must be terminated by a carriage 
return. 

Comment Line (C) 

A line of text that has a C in character position 1 is a comment line. The comment may be written 
anywhere in the line following the C. 

Optionally Compiled Line (X) 

A Line of text that has an X in character position 1 will be optionally compiled. At compile time, the 
compiler tests whether or not lines having an X in that position should be compiled as part of the source 
program. If yes, all lines having an X in column 1 will be compiled; if no, the lines containing X in 
column 1 will be ignored. See Appendix D, "Operating Procedures", for a description of how to use 
the X option. 



*A task subprogram Is used under the Real Time Disk Operating System or the Real Time Operating 
System. Task subprograms can be activated by the run time routines FTASK or ITASK, discussed 
in PART 11 of this manual. 



1-1 



LINES OF PROGRAM TEXT (Continued) 



Assembly Source Code Line (A) 



Lines of assembly source code may be included in a FORTRAN source program. A line of assembly 
source code must have an A in character position 1. The compiler will delete the A when the line is 
encountered and pass the line intact to the assembler. 

Label 

If a line does not have a C, X, or A in character position 1, character positions 1 through 5 are 
reserved for a label. If the line contains an X in column 1, character positions 2 through 5 are 
reserved for a label. 

A label can be any unsigned integer of 1 to 5 digits and can be placed anywhere in character positions 
1 through 5. 

Leading zeroes are significant in labels; 12 and 0012 will be treated as two different labels. 

Comment Following Semicolon 

The syntactical scan of a line may be terminated by a semicolon. A semicolon in column 7 or any 
character position thereafter reserves the remainder of the line for an optional comment. (A 
semicolon appearing within a Hollerith constant is not recognized for this purpose. ) 

FORTRAN STATEMENTS 

The basic semantic unit of a FORTRAN program unit is called a statement. A line of text may 
contain a FORTRAN statement or part of a FORTRAN statement. 

A statement must start at character position 7 or beyond. The programmer can press the TAB key 
once to tabulate to position 8 or can press the space bar 6 times. The programmer can also tabulate 
to position 8 after a label. 

Continuation Lines 



When a FORTRAN statement requires more than one line of text, continuation lines must be indicated 
by putting a character other than or blank in character position 6 of the continuation line. Initial 
FORTRAN statement lines must have or blank in character position 6. 

Partial Ordering of Statements 

For compiler efficiency. Data General's FORTRAN IV requires a partial ordering of statemeits. The 
order of statements is: 

1) COMPILER DOUBLE PRECISION or COMPILER NOSTACK statement. 

2) OVERLAY or CHANTASK statement. 

3) PARAMETER statements. 

4) FUNCTION, SUBROUTINE, and TASK statements. 

5) Declaration statements. These begin with the keywords: COMMON, COMPLEX, DIMENSION, 
DOUBLE PRECISION, EQUIVALENCE, EXTERNAL, INTEGER, LOGICAL, or REAL. 

*6) Statement functions. 

*7) Exe cutable statements. 
*FORMAT statements and DATA initialization statements are permissible in either category. 
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FORTRAN SOURCE PROGRAM 



An example of a DGC FORTRAN IV source program is: 





REAL FUNCTION MAG (A, I, J ) 




DIMENSION A (20,20) 


c 


ASSUME A (1,1) LARGEST 




MAG=A(1,1) 


c 


SCAN ARRAY A TO CHECK ASSUMPTION 




DO 5 K = 1, I 




DO 6 L = 1, J 


c 


IF A(K, L) IS LARGER, SUBSTITUTE IT 


Q 


FOP. A(l,l^ 




IF (MAG.LT. A(K, L))MAG=A(K, L) 


6 


CONTINUE 


5 


CONTINUE 




RETURN 




END 


FORTRAN CHARACTER SET 



The ASCII characters that make up the FORTRAN character set are: 

Letters: A through Z 

Digits: through 9 

Special symbols listed below: 



Symbol Name of Symbol 

Li Blank 

= Equals 

+ Plus 

Minus 
* Asterisk 

/ Slash 

( Left Parenthesis 

) Right Parenthesis 

, Comma 

Decimal Point 
$ Currency Symbol 

: Colon 

Apostophe 

Quotation Mark 
! Exclamation Point 

Blanks are significant delimiters in Data General's FORTRAN IV, except as noted in Chapter 2 in 
regard to variable names and in Chapter 5 in regard to the GO TO statement. 

All ASCII characters are allowed in Hollerith constants with the exception of those characters that 
have special meaning for the operating system in control or for the Extended Assembler. The 
characters that are not permitted are: 
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FORTRAN CHARACTER SET (Continued) 



ASCU Code 


Character 


012 


Line Feed 


014 


Form Feed 


015 


Carriage Return 


034 


Shift L (\) ' 


074 


< 
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CHAPTER 2 
ARITHMETIC AND STRING DATA 



CONSTANTS, VARIABLES AND PARAMETERS 

A constant is a known value that does not alter during program execution. 

A variable is represented by a symbolic name and is a quantity that may be altered during execution. 

The symbolic name of the variable must consist of from 1 to 31 alphanumeric characters, beginning with 
a letter. Subprogram names must be distinguishable within the first five characters for compatibility 
with the DGC Assembler and Loader. 

Imbedded blanks appearing within variable names are not significant. For example, the following 
identifiers are equivalent. 



XSQUARE 

X SQUARE 

XSQUARE 



_ 



DGC FORTRAN IV has a list of reserved words consisting of statement names (DO, PAUSE, etc.), 
library function names (SQRT, AIMAG, etc. ) and operator names (.AND. , . LE. , etc. ). * The reserved 
words cannot be used as variat)le names. In addition, imbedded blanks in a variable name that cause a 
portion of the name to be recognized as a reserved word are not permitted. For example: 



DOZEN legal variable name 

DO ZEN illegal variable name 



A parameter is represented by a symbolic name and can be used anywhere a constant of the same type 
can be used. (Statement numbers, octal strings in PAUSE and STOP statements, and numbers in FORMAT 
statements are not constants. ) 

A parameter has the data type of the associated constant. Parameters are given their value in a 
PARAMETER statement. The format of the PARAMETER statement is: 



PARAMETER Vj :»£[, V2=C2, ..., Vn=Cjj 



*This exception to ANSI FORTRAN Standard X3. 9-1966 was made in the interest of FORTRAN compiler 
efficiency. A list of the reserved words is given in Appendix B. 
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CONSTAiXTS, VARIABLES. AND PARAMETERS (Continued) 
where: each v is a variable name. 

each c is a numerical or logical constant 
Example of PAR.\METER statement: 



PARAMETER H=3. 141592653, Ql=.1731523D-7 



Examples of use of parameter K: 



PARAMETER K = 8 

COMMON / COMLABEL / C1(K), C2(K) 

DATA C1/K*K/ 

D0 1I=1,K 

01(1) = 1*K 

CALL SUBROUT (CI, AB, K) 



Constants and variables have data types associated with them. Mathematical data may be of types 
INTEGER, REAL, DOUBLE PRECISION, COMPLEX, or DOUBLE PRECISION COMPLEX. 

INTEGER type data is represented internally in fixed-point notation. All other mathematical data 
types are represented internally in floating-point notation. 

Constants and variables may be associated with a LOGICAL data type. In addition, string constants 
are permitted in the source code. String constants cannot be associated with parameters. 

Integer Data 

An integer constant is a signed or unsigned whole number written without a decimal point. 

An integer variable is usually implicitly typed, i. e. , if the first character of the symbolic name is 
I, J, K, L, M, or N, the symbolic name represents an integer variable unless otherwise specified. 
Examples of integer constants and variables are: 



Constants Variables 



-125 ITEM 

JOBNO 

+4525 LUCKY 

377K MAS KBYTE 



As shown, integer constants can be specified in octal format by writing the number followed by the 
letter K. Some additional examples are: 
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CONSTANTS, VARIABLES, AND PARAMETERS (Continued) 



Integer Data (Continued) 




Octal Constant 

lOK 

777K 

-IK 


Decimal Value 

8 

511 

-1 



An integer datum is stored in one word (16 bits). The range of integer values is -32, 767 to 32, 767 
inclusive. 

Real Uata 

A real constant is signed or unsigned and consists of one of the following: 

1) One or more decimal digits written with a decimal point. 

2) One or more decimal digits written with or without a decimal point, followed by a decimal 
exponent written as the letter E followed by a signed or unsigned integer constant. When 
the decimal point is omitted, it is always assumed to be immediately to the right of the 
rightmost digit. The exponent value may be explicitly 0; the exponent field may not be 
blank. 

A real variable is usually implicitly typed. If the first character of the symbolic name is not I, J, 
K, L, M, or N the symbolic name represents a real variable unless otherwise specified. 



Constants 



0.0 

. 000056789 

+15.E-04 

-005E2 



Constant Value 


Variables 


0.0 


ALPHA 


. 000056789 


B25 


+. 0015 


EXIT 


-500 


C 



A real datum is stored in two 16-bit words. 

Double Precision Data 

A double precision constant is signed or unsigned and consists of the following: 

A sequence of decimal digits written with or without a decimal point, followed by a decimal 
exponent written as the letter D followed by a signed or unsigned integer constant. When the 
decimal point of a double precision constant is omitted, it is always assumed to be immediately 
to the right of the rightmost digit. The exponent value may be explicitly 0; the exponent field 
may not be blank. 

A double precision variable must be explicitly specified as such in a DOUBLE PRECISION type 
statement. * 



*If the first statement of the FORTRAN program is: "COMPILER DOUBLE PRECISION" each real 
variable or constant will be forced to type DOUBLE PRECISION. See page 7-3. 
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CONSTANTS, VARIABLES, AND PARAMETERS (Continued) 



Double Precision Data (Continued) 


Constants 


Constant Value 


-21987654321DP 


-21987654321 


5. OD-3 


.P05 


.203D0 


.203 


Variahle Type Statement 




DOUBLE PRECISION D, 


E, F2 



A double precision datum is stored in 4 words. 

Complex Data 

A complex constant is an ordered pair of signed or unsigned real constants, separated by a comma and 
enclosed in parentheses. 

A complex single -precision variable must be explicitly specified as such in a COMPLEX type statement. 



Constants Constant Value 



(3.2, L86) 3.2+1.861 

(2.1, 0.0) 2.1+O.Gi 

(5.0E3, -2.12) 5000. -2.121 

Variable Type Statement 

COMPLEX CI, C2 



A complex single-precision datum is stored in 4 words. 

Double Ibrecision Complex Data 

A double precision complex constant is an ordered pair of signed or unsigned double precision 
constants separated by a comma and enclosed in parentheses. 

A double precision complex variable must be explicitly specified as such in a DOUBLE PRECISION 
COMPLEX type statement. * 



Constant 



(-3456.0012D-5,.0034567D+3) 

Variable Type Statement 

DOUBLE PRECISION COMPLEX DCl. DC2 



*If the first statement of the FORTRAN program is: "COMPILER DOUBLE PRECISION" each complex 
variable or constant will be forced to type DOUBLE PRECISION COMPLEX. See page 7-3. 

2-4 



CONSTANTS, VARIABLES AND PARAMETERS (Continued) 

E)ouble Precision Complex Data (Continued) 

A double precision complex datum is stored in 8 words. 

Logical Data 

A logical constant is a truth value written as: 

.TRUE. or .FALSE. 
A logical variable must be expUcitly specified as such in a LOGICAL type statement. For example: 



T nnir A T unni 1 crini o 



A logical datum is stored in one word. The value . TRUE, is stored as octal 177777 and . FALSE, as 
000000. When testing for logical, any non-zero word will be treated as the value .TRUE. . (Octal 
177777 is also the integer value -1. ) 

String (Hollerith) Constants 

String constants are strings of characters of the FORTRAN character set, including blanks. A string 
may be enclosed in quotation marks, it may be enclosed in apostrophes, or it may be represented by 
a Hollerith constant. A Hollerith constant is an integer constant followed by the letter H followed by 
the string. The integer constant indicates the number of characters in the string: 




equivalent strings 



Quotation marks may appear in strings that are surrounded by apostrophes; apostrophes may appear 
in strings that are surrounded by quotation marks. Both apostophes and quotation marks may be used 
as characters within Hollerith constants. 

String constants may appear in: 

1) The I/O list of a TYPE or ACCEPT statement. The constant is written out precisely as it 
appears in the statement. 

2) A FORMAT statement. On output, the string is written to the output device. On input, the 
string is overwritten by an equal number of characters from the input record. 

3) A DATA initialization statement. The data type of the corresponding variable (or variables) 
in the variable list is ignored. 

4) The argument list of a CALL statement or the argument list of a function reference. 

String constants may also appear in relational and logical expressions as described in Chapter 3. In 
these cases, however, only the first two characters of the string constant are significant and are treated 
as a one -word integer operand rather than a string. 
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CONSTANTS, VARIABLES AND PARAMETERS (Continued) 

String (Hollerith) Constants (Continued) 

Within string constants, octal codes for ASCII control characters, deUmited by angle brackets, may 
appear. The codes will be passed to the DGC assembler for interpretation. For example, a 
carriage return can be passed in a string as follows: 



"DATA FOLLOWS: <15> 



Note that when using formatted I/O (WRITE/FORMAT statements), carriage control information 
should not be passed in string constants but should follow ANSI FORTRAN standard conventions. 

String constants are stored one character per byte (two characters per word). Normally, if the 
character count of a string is even, a word of all zeroes is generated to indicate the end of a string. 
This does not occur, however, in the case of DATA initialization using a string constant. 

ARRAYS AND SUBSCRIPTS 

An array is an ordered set of data of one or more dimensions. Up to 128 dimensions are permitted; 
a single symbolic name identifies the array. Each element of the array is identified by a qualifier 
of the array name, called a subscript. 

An array is specified by appearance of its symbolic name in a DIMENSION, COMMON, or data type 
statement with parenthesized dimensioning information. Some examples are: 



DIMENSION A(10,10) A is a two-dimensional real array of 100 elements. 

COMMON B(2,5,5) B is a 3-dimensional real array of 50 elements stored in 

common. 

INTEGER C(5, 2, 2, 2) C is a 4-dimensional integer array of 40 elements. 



Variables may be used in the specification of array subscripts in DIMENSION and data type state- 
ments. This is called adjustable dimensioning. 

Variables can only be specified if the array name and the variable subscript bounds are dummy 
arguments of a subprogram in which they specify the array. Then, actual arguments giving values 
to variable subscript boimds can be passed when the subprogram is called. Example: 



SUB25(MAT, I, J.) 
INTEGER I, J 
REAL MAT (I, 0:J) 



Values for I and J would be passed in a call to SUB25. 
Note that array MAT is subscripted as 
MAT(I,0:J) 
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ARRAYS AND SUBSCRIPTS (Continued) 

This specifies that the lower bound of the second subscript is and the upper bound is J. If only 
the upper bound of an array dimension is specified, the lower bound is assumed to be 1, e. g. : 



DIMENSION B(5) 



assumes that the first array element is B(l) and the last is B(5). Both upper and lower bounds 
are specified in the following example: 



DIMENSION F(0:11), G(-2;4, -3:0) 



The array F is a one -dimensional array of 12 elements, the first of which is F(0). The second 
array is a two-dimensional array of 7x4 or 28 elements; the first element is G(-2, -3). 

The subscript of an array element is written as a parenthesized list of subscript expressions. Each 
subscript expression can have one of the following forms: 

1) In the non-executable statements EQUIVALENCE and DATA, each element of the subscript 
list must be an integer constant (or a parameter representing an integer constant. ) 

2) In expressions within executable statements, each element of the subscript list must be 
an expression whose value is of type integer. 

Examples: 



^I, J) 

could be an element of array A(10, 10) 
B(l,l,l) 

is the first element of array B(2,5,5) 
C(ITEM-l) 

could be an element of array C(0:6) 
D(I+IFIX(SQRT(R -B/3.0)), J/K) 

could be an element of D(3, 8) 



The subscript of an array element cannot assume a value during execution that is less than the 
lower bound for that dimension of the array or larger than the upper bound for that dimension of 
the array, except if a single subscript is given for a multidimensional array. (A single subscript 
can be used to index a multidimensional array. If A is dimensioned (0:4, 0:4), the 25 elements of 
A can be referenced as A(l) through A(25). This is the same as the single subscript reference 
allowed in DATA and EQUIVALENCE statements.) 



2-7 



ARRAYS AND SUBSCRIPTS (Contmued) 

Values are assigned to array elements so that the first subscript expression varies most 
rapidly, then the second subscript expression, etc. 

For example, elements of array C(15) are stored: 



C(l), C(2) C(15) 



Elements of array A(10, 10) are stored: 



A(l,l), A(2,l),... , A(9,l), 

A(10,l), A(l,2),..., A(9,10), A(10,10) 



Elements of array B(2,3,4) are stored: 



B(l, 1, 1), B(2, 1, 1), B{1, 2, 1), B(2, 2, 1), 
B(l,3,l), B(2,3,l), B(l,l,2),. . . , 
B(l,3,4). 3(2,3,4) 
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CHAPTERS 
EXPRESSIONS 



DEFINITION OF AN EXPRESSION 



An expression is a combination of data elements (variables, array elements, fimctians, and constants) 
with operators. The FORTRAN operators are arithmetic, relational and logical. 

ARITHMETIC EXPRESSIONS 

An arithmetic expression is formed with arithmetic operators and arithmetic data elements. The 
operators are: 



Operator 


Operation 


+ 


Addition (or unary plus) 


- 


Subtraction (or unary minus) 


* 


Multiplication 


/ 


Division 


*# 


Exponentiation 



An arithmetic datum has one of five possible data types: 

Type Rank of Data 

double precision complex highest 

complex 

double precision 

real 

integer lowest 



■vf 



The following rules apply to evaluating arithmetic expressions: 

1) When either plus (+) or minus (-) is used as a unary operator, the data type of the result 
is the same as that of the operand. 

2) When two operands of the same data type are used in an expression containing one of the 
operators 

+ - * / 

the data type of the result is the same as that of the operand. 

3) Mixed data type operands are permitted. In expressions formed with the operators 

+ - * / 

the lower ranking data type operand is converted to a temporary of the higher ranking 
type, and the result of evaluation will have the higher ranking data type. When a COMPLEX 
or DOUBLE PRECISION COMPLEX operand is combined with an operand that is not complex, 
the temporary has an imaginary part equal to zero. 

When an expression consists of a DOUBLE PRECISION operand and a COMPLEX operand, the 
DOUBLE PRECISION operand is converted to a single precision COMPLEX temporary and the 
result of evaluation is COMPLEX. 
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ARITHMETIC EXPRESSIONS (Continued) 

3) (Continued) 

Arguments of library functions are not converted to temporaries of the appropriate type. 



H^lll. ^ 



perands 



4) Mixed data types are permitted in expressions consisting of base and expoi 
(** operator), except that it is illegal to raise an INTEGER base to a COMPLEX or DOUBLE 
PRECISION COMPLEX exponent. 

When base and exponent operands are of the same type, the result is also that data type. 

Whentlie base and exponent are of differing data types, the resultant value will be of the 
higher data type, except in the case of raising a COMPLEX base to a DOUBLE PRECISION 
exponent. The result of this operation is DOUBLE PRECISION COMPLEX. 

5) The following rules govern the order in which operations are evaluated within an 
arithmetic expression. 

a) The arithmetic ojierators have the following precedence: 

Operator Precedence 



/ * 

+ - 



highest (evaluated first) 
lowest (evaluated last) 



b) When two operators are of equal precedence, operations are evaluated from left to 
right in the expression. 

c) Parentheses are used to alter the order of operator precedence. A parenthesized 
expression is evaluated as an entity before further evaluation proceeds. When parenthesized 
expressions are nested, the innermost is evaluated first. 

The rules for evaluating mixed data types are shown in tabular form in the tables following. The 
resulting data types are given in the double lined area. 



OPERATORS OPERAND A 
-1- - « / Double I>3uble 
Integer Real Precision Complex Complex 


Integer 


Integer 


Real 


Double 
Precision 


Complex 


Double 
Complex 


Real 


Real 


Real 


Double 
Precision 


Complex 


Double 
Complex 


OPERAND ^"^^"^ 
t, Precision 


Double 
Precision 


Double 
Precision 


Double 
Precision 


Complex 


Double 
Complex 


Complex 


Complex 


Complex 


Complex 


Complex 


Double 
Complex 


Double 
Complex 


Double 
Complex 


Double 
Complex 


Double 
Complex 


Double 
Complex 


Double 
Complex 
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ARITHMETIC EXPRESSIONS (Continued) 



OPERATOR EXPONENT OPERAND 

** Double Double 
Integer Real Precision Complex Complex 


Integer 


Integer 


Real 


Double 
Precision 


ILLEGAL 


ILLEGAL 


Real 


Real 


Real 


Double 
Precision 


Complex 


Double 
Complex 


Double 

BASE Precision 


Double 
Precision 


Double 
Precision 


Double 
Precision 


Complex 


Double 
Complex 


OPERAND 

Complex 


Complex 


Complex 


Double 
Complex 


Complex 


Double 
Complex 


Double 
Complex 


Double 
Complex 


Double 
Complex 


Double 
Complex 


Double 
Complex 


Double 
Complex 



SAMPLE ARITHMETIC EXPRESSIONS 

Some examples of legal arithmetic expressions are shown below with the data type of each data element 
of the expression. 



INTEGER I, J 

REAL A, B 

DOUBLE PRECISION D 

DOUBLE PRECISION COMPLEX DC, CD 



C*DC**C 

B/(I+J) 

D-B**A 



legal arithmetic expressions 



RELATIONAL AND LOGICAL EXPRESSIONS 



Relational Expres sions 



A relational expression consists of 2 arithmetic expressions separated by a relational operator. The 
relational operators are: 



Operator 


Representing 


.LT. 


Less than 


.LE. 


Less than or equal to 


.EQ. 


Equal to 


.NE. 


Not equal to 


.GT. 


Greater than 


.GE. 


Greater than or equal to 
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RELATIONAL AND LOGICAL EXPRESSIONS (Continued) 
Logical Expressions 

A logical expression is formed with logical operators and logical or integer elements. Logical elements 
are those that have been given the data type LOGICAL. The logical operators are: 

Operator Representing 

. OR. Logical disjunction. Result is 1 if either operand has a 1 in that 

bit position. 

. AND. Logical conjunction. Result is 1 if and only if both operands are 

1 in that bit position. 

. NCrr. , Logical negation. Result is the bit complement of the operand. 

Evaluation of Logical and Relational Expressions 

Logical and relational operations may be combined within expressions. 

Logical and relational expressions can be treated as fuU-word operations, evaluated bit-by-bit, as in 
masking, or can be considered as evaluating to truth values: 

.TRUE. or .FALSE. 

where: .TRUE. is 177777g (-1) 

.FALSE. is 000000.(0) 

These octal values for .TRUE, and .FALSE, are generated for literals and as the result of evaluations 
to a truth value. When testing for a truth value, any non-zero word is considered .TRUE, and a word of 
all zeroes is considered .FALSE. 

Hollerith (string) constants may appear wherever integers are permitted in logical and relational 
expressions. Only the first two characters of the string constant are significant, and represent the 
ASCII value of the characters. The first two characters of the string constant can be ANDed, ORed, 
or compared with integer and logical values. 

The general rules of precedence in evaluating relational and logical expressions are the same as for 
arithmetic expressions: parenthesized expressions are first evaluated as entities and evaluation 
proceeds from left to right when two operators are of equal precedence. 

Arithmetic expressions are evaluated first, in accordance with the rules of arithmetic operator 
precedence, then relational operations, and then logical operations. The precedence of aU operators 
in a FORTRAN expression is: 

Operator Precedence 

«* highest 

V 

+ - 

. GE. , . GT. , . EQ. , . NE . , . LT. , . LE. 

.NOT. 

.AND. 

. OR. lowest 

The tables following show examples of evaluation of logical and relational expressions, both for truth 
value results and on a fuU-word, bit -by-bit basis. 

3-4 



RELATIONAL AND LOGICAL EXPRESSIONS (Continued) 
Evaluation of Logical and Relational Expressions (Continued) 



TRUTH OPERATIONS 

(.FALSE. =000000 .TRUE.=177777„) 
o 8 

Logical Truth Table 



Y Operand 


Z Operand 


.NOT.Y 


Y.ANTl. Z 


Y.OR.Z 


.FALSE. 


.FALSE. 


.TRUE. 


.FALSE. 


.FALSE 


.FALSE. 


.TRUE. 


.TRUE. 


.FALSE. 


.TRUE. 


.TRUE. 


.FALSE. 


.FALSE. 


.FALSE. 


.TRUE. 


. ii\.UE,. 


. IKUt,. 


.tALbtL. 


.TRUE. 


.TRUE. 




Logical and Relational Truth Evaluations 





Assume that: A = .TRUE. W = 2 X = 4 

Expression 

W.LE.X 

W.LT.X.AND.W. LT.Y 

W.NE.X.AND..NOT.A 

.NOT.A.OR.W.EQ.X 



Y = 



Value 


Interpretation 


.TRUE. 




.TRUE. 


true and true 


.FALSE. 


true and false 


. FALSE 


false or false 



Operands 

Y= lOlOlO 
Z= IIOIOO 



Bit-by-Bit Logical Operations 
• NOT. Y .NOT.Z Y.AND.Z Y.OR.Z 



001011 



100000 



010101 

Logical and Relational Full 7/ord Evaluations 
Assume that: J = 3778 K = 47117g L = 200g 



111110 



Expression Value 

J .ANa K 117 

.NOT. J ,ANa K 47000 

5*(-(K.EQ. D) 

5*(-(K .EQ.'-NO'')) 5 



Interpretation 

Mask K with J. 

Mask K with the complement of J. 

Since K does not equal L , the parenthesized 
expression evaluates to .FALSE. (0). 

47117 is ASCII for NO . The result of the pa- 
renthesized expression is .TRUE. ( -1 ). 
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CHAPTER 4 
ASSIGNMENT STATEMENTS 



DEFINITION 



The format of an assignment statement is: 



variable = expression 



where: variable is a subscripted or non- subscripted variable name. 

expression is any legal FORTRAN expression. 

The expression on the righthand side of the equals sign is evaluated according to the rules given in 
Chapter 3, and the resulting value is assigned to the variable on the lefthand side of the assignment 
statement. 

ASSIGNMENT TO A VARIABLE 

The rules for assignment of the value of an expression to a variable are: 

1) The only iUegal assignment statements are: 

INTEGER = (DP) COMPLEX 

P.EAL = 'DP'> COMPLEX 

DOUBLE PRECISION = (DP) COMPLEX 

2) If the expression and variable are of the same data type, the expression is simply evaluated 
and assigned. 

3) INTEGER = REAL 

INTEGER = DOUBLE PRECISION 

Fix the floating point number and assign. 

4) REAL = INTEGER 

Float the fixed point number and assign, 

5) REAL = DOUBLE PRECISION 

Truncate the mantissa by 32 bits and assign. 

6) DOUBLE PRECISION = INTEGER 

Float the fixed point number to a full 56 bits of mantissa and assign. (The expression is not 
floated to REAL and then extended by 32 bits of zeroes. ) 
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ASSIGNMEiNT TO A VARIABLE (Continued) 

7) DOUBLE PRECISION = REAL 

Extend the single precision mantissa by 32 bits of zeroes and assign. 

When assigning any single-precision expression to a double -precision variable, error 
message No. 2 will be given. This is a warning that the double -precision variable will 
only be precise to 6 or 7 decimal digits. 

8) COMPLEX = DOUBLE PRECBION COMPLEX 
Truncate each mantissa by 32 hits and assign. 

9) DOUBLE PRECISION COMPLEX = COMPLEX 

Extend each single -precision mantissa by 32 hits of zeroes. (Error message 47 will 
be given) 

10) COMPLEX = INTEGER 

Float the fixed point number, set the imaginary part to zero, and assign. 

11) COMPLEX = REAL 

Set the imaginary part to zero and assign. 

12) COMPLEX = DOUBLE HIECBION 

Truncate the mantissa by 32 bits, set the imaginary part to zero, and assign. 

13) DOUBLE PRECISION COMPLEX a INTEGER 

Float the fixed point number to a full 56 bits of zeroes, set the imaginary part to zero, 
and assign. 

14) DOUBLE PRECISION COMPLEX = REAL 

Extend the single-precision mantissa by 32 bits of zeroes, set the imaginary part to 
zero, and assign. 

15) DP COMPLEX = DOUBLE PRECISION 
Set imaginary part to zero and assign. 

16) Assignment to a LOGICAL variable follows the rules of assignment to integers. 

17) String constants may be assigned to INTEGER variables. The ASCII value of the first two 
characters of the constant are assigned. 

ASSIGNMENT EXAMPLES 

Some examples of assignment statements are: 
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ASSIGNMENT EXAMPLES (Continued) 



S = 5. *(3**A4SQRT(A*I)/I) 

B = C(I)-tSIN(C(I)) 

LOGIC(4) = X.GT.5.0R.Y.LT. Z 

K(I) = 34567. EH4/I 

J = 10.0*SIN(X) 

L = Z.LE.2.5.0R.I.NE."NO" 



The following chart is a synopsis of the rules for the assignment of an expression to a variable. 



Type of Expression 



TYPE 



INTEGER 



REAL 



DOUBLE 
PRECISION 



COMPLEX 



DOUBLE 

PRECISION 

COMPLEX 



INTEGER 



evaluate 

and 

assign 



fix and 
assign 



fix and 
assign 



ILLEGAL 



ILLEGAL 



REAL 



float 

and assign 



evaluate 

and 

assign 



truncate 
mantissa and 
assign 



ILLEGAL 



ILLEGAL 



DOUBLE PRECISION 



float to 
56 bits and 
assign 



extend 
mantissa 
and assign 



evaluate 

and 

assign 



ILLEGAL 



ILLEGAL 



COMPLEX 



float, set 
imaginary 
part and 
assign 



set imag- 
inary part 
to zero and 
assign 



truncate man- 
tissa, set imag- 
inary part to 
zero, and assign 



evaluate 

and 

assign 



truncate 

and 

assign 



DOUBLE PRECISION 
COMPLEX 



float, set 
imaginary 
part to zero, 
and assign 



extend 
mantissa, 
set imagi- 
nary part, 
and assign 



set imaginary 
part to zero, 
and assign 



extend 
mantissa 
by 32 bits 
of zeroes 



evaluate 

and 

assign 
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CHAPTER 5 
CONTROL STATEMENTS 



DEFINITION 

Statements in a FORTRAN program are normally executed sequentially. Control statements allow 
the programmer to change the flow of program logic. 

UNCONDITIONAL GO TO STATEMENT 

Format: 



GOTOn 
GOTOv 



where: n is a statement number. 

V is a non- subscripted integer variable. 

Format 1 of the statement causes control to transfer to the statement numbered n. 

Format 2 of the statement causes transfer to the address which is the current value of integer 
variable v. This value must have been preset by an ASSIGN statement. 



GO TO 25 



25 CONTINUE 



Control is transferred to statement 25. 



In aU GO TO statements, "GOTO" may be written with blanks between "GO" AND 'TO' 

COMPUTED GO TO STATEMENT 

Format: 



GO TO(ni, n2,. . . , n^), v 



where: n^, £2, . . . , iXj^ are statement numbers. 

V is a non-subscripted integer variable name. (Note that the comma separating the right 
parenthesis from v is not required. ) 
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COMPUTED GO TO STATEMENT (Continued) 

Control is transferred to nj, where i is the value of v. If v >in_ or v<l, the GO TO statement is not 
executed and a fatal run-time error will result. 



GO TO (10, 100, 40, 25,9), K K must evaluate to 1, 2, 3, 4, or 5 



ASSIGNED GO TO STATEMENT 



Format: 



GO TO V, (nj, n2, . . . . nm) 



where: nj^, n.2, ...» nm are statement numbers. 

V is a non- subscripted integer variable name appearing in a previously executed ASSIGN 

~ statement. (Note that the comma separating the v from the left parenthesis is not required. ) 

The statement causes control to transfer to the statement whose number was last assigned to v by an 
ASSIGN statement. (This statement is accepted by DGC FORTRAN IV but is treated as an imconditional 
GO TO, i. e. , the list (n^. . . n^) is superfluous. ) 

ASSIGN STATEMENT 



Format: 



ASSIGN n TO V 



where: n is a statement number. 

V is a non- subscripted integer variable name that appears in an assigned or unconditional 
~ GO TO statement. 

The statement causes a subsequent assigned GO TO statement to transfer control to the statement 
numbered n. 



ASSIGN 5 TO J 



GOTO] 



GO TO J, (25,16,5,40) 



Control is transferred to the statement numbered 5 
when the unconditional GO TO or when the assigned 
GO TO is executed. 
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ARITHMETIC IF STATEMENT 



Format: 



IF (e) ny, n2, n^ 



where: e is an integer, real , or double precision expression. 

iij, n2, n3 are statement numbers. 

The expression is evaluated. Control transfers to statement n^ if the value of the expression is less 
than zero. Control transfers to statement 112 if the value of the expression is zero, and control transfers 
to statement 113 if the value of the expression is greater than zero. 



IF (Ay,K)-B) 10,4, 30 
IF (Q*R) 5, 5, 2 



LOGICAL IF STATEMENT 



Format: 



IF (le) s 



where: le is a logical expression. 

£ is any executable statement (assignment statement, control statement, or I/O statement) 
except a DO. 



passes to the next statement following the logical IF unless statement s transfers control. 

If the expression is false, statement s is bypassed and control passes to the next sequential statement. 



IF (A.AND.B) F=SIN(R) 
IF (LGT.0)GOTO25 



CALL STATEMENT 



Format: 



CALL subr (a] , ay, . 


. . ,3^) 


CALL subr 
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CALL STATEMENT (Continued) 

where: subr is the name of a subroutine or a dummy variable (see EXTERNAL) 

a^, £2, . . . , aji are actual argument names that replace dummy argument names in 
the subroutine. 

The statement references the designated subroutine, which is executed. Control is returned to the 
statement after the CALL statement when execution of the subroutine is completed unless the sub- 
routine makes an abnormal return. 

Arguments of subroutines are described in the section dealing with subprograms. 



r 



CALL QUAD (9. 73,Q/R. 5, R-S**2. 0, XI, X2) 
CALL OFIIONS 



RETURN STATEMENT 



Format: 



RETURN 
RETURN V 



where: v is a dummy integer variable whose value represents a statement number in the calling 
program. 

The statement marks the logical end of a subprogram. Execution of a return without v is a normal return. 
Control is returned to the calling program as follows: 

1) Return from a subroutine is made to the statement following the CALL statement. 

2) Return from a function is made to the statement containing the function reference and a value 
is substituted for the function in that statement. 

An abnormal return (RETURN v format) allows for error returns or multiple -decision branches, and 
is described further in Chapter 9, "Abnormal Returns. " An abnormal return must return to the 
immediately calling program. 

CONTINUE STATEMENT 



Format: 



CONTINUE 



CONTINUE is a dummy statement that causes continuation of the normal execution sequence. It is 
most frequently used as the last statement in the range of a DO to provide a transfer address for IF 
and GO TO statements that are intended to begin another repetition of the DO range. 
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CONTINUE STATEMENT (Continued) 



S = 
5 DO 15 I = 1, N 

IF (B(I)-1000.) 10,15,15 
10 S = &fC(I)*B(I) 
15 CONTINUE 



PAUSE STATEMENT 



Format: 



PAUSE 
PAUSE s 



where: £ is a string of ASCII characters which will be typed out following the pause. 

The statement causes the program to cease executing. A message, indicating a pause and giving the 
text string at the pause, will be printed at the console printer. To resume execution at the point of 
interruption, the programmer presses any console key. 

STOP STATEMENT 

Format: 




where: £ is a string of ASCII characters. 

The statement causes unconditional termination of program execution. A message indicating a stop 
and giving the text string, if present, will be printed at the console printer. 



STOP LABEL 70 



DO STATEMENT 



Format: 



DO n i = mp m2, m3 
DO n i^ = m]^, m2 
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DO STATEMENT (Continued) 

where: n is a statement number. 

i is a nonsubscripted integer variable name called the control variable. 

'"I' ill2' ™3 ^^ integer constants or nonsubscripted integer variable names. They 
are the initial parameter, final parameter, and incremental parameter respectively of 
i. Default value of m^ is 1. 1113 must be greater than or equal to 1. 

The DO statement sets up a loop. Statements following the DO statement up to and including the 
statement labeled n can be repetitively executed. This set of statements is called the range of the DO. 

The parameters indicate the values that control variable ^ may assume within the range of the DO. 
mj is the starting value of i; m2 is terminal value (or value beyond which i_ cannot assume values); 
and m3 is the value by which Tis incremented at each execution of the loop. A simple DO loop is: 



DIMENSION A(IOO) The DO range, which is assignment statement 25, 

is used to form the sums of squares of the elements 
of array A: 

SUMSQ = 0.0 100 2 

DO 25 I = 1, 100 ) A(i) 

25 SUMSQ = SUMSQ + A(I)**2 '"1=1 



DO loops can be nested. The range of a nested DO cannot extend beyond the range of an outer DO loop. 
Following is an example of the summation of values of an integer, two-dimensional array. Both the 
nested and outer DO loops terminate at dummy statement CONTINUE . 



INTEGER SUM, MATRIX (10, 20) 



SUM = 
DO 30 I = 1, 10 
DO 30 J = 1, 20 
SUM = SUM + MATRIX (1, J) 
30 CONTINUE 



DO loops have the following restrictions: 

1) Control cannot be transferred into the range of a DO. (Control can be transferred out of 
the DO range. ) 

2) The statement terminating the range of the DO cannot be a GO TO of any form, an arithmetic 
IF, RETURN, STOP, PAUSE, DO, or a logical IF containing any of these statements. 

3) The control variable cannot be redefined within the DO range. 

If DO loop conditions are satisfied by the control variable reaching its final parameter value, the 
control variable becomes undefined and the DO loop is exited by executing the next statement following 
the statement labeled n. 
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DO STATEMENT (Continued) 

If a DO loop is exited by execution of a GO TO or arithmetic IF statement, the control variable 
remains defined. Its value is equal to its value at the time of exit from the loop via the GO TO or 
arithmetic IF. 

The range of a DO loop can be extended to include additional statements or program units if: 

1) A statement (GO TO or arithmetic IF) exists in an innermost, completely nested loop 
of the DO loop that transfers control out of the innermost, completely nested loop, and 

2) A statement transferring control back into the innermost, completely nested loop exists 
and might logically be executed as part of the extended range. 

The extended range includes all statements that might logically be executed outside the innermost, 
completely nested loop (including the transfer statement). 



SUM = 

DO 30 I = 1, 10 

DO 25 J = 1, 20 

SUM = SUM + MATRIX (I, J) 

IF (SUM .GT. TOTAL) GOTO 50 
25 CONTINUE 
30 CONTINUE 



50 



completely nested innermost DO 



GOTO 25 



extended range of EXD containing at least one statement 
transferring control back into the innermost DO. 
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CHAPTER 6 

INPrjT/OUTPUT STATEMENTS 



FORTRAN INPUT/OUTPUT 

FORTRAN IV provides for five types of input/output: 

1) Unformatted values : Externally recognizable numbers in ASCU (teletype standard) code 
can be read and converted to their internal computer representation and vice versa. 

2) Formatted values : On input, external values in ASCII code are interpreted according to 
a FORMAT specification. On output, internal values are displayed or stored on the 
external medium according to a FORM\T specification. 

3) Binary values : Internal data is transferred to an external device or vice versa with 
absolutely no change in structure (representation). 

4) Run-time values : Conversational input/output is permitted from the teletypewriter, in 
accordance with programmed ACCEPT and TYPE statements. 

5) Control : Ibsitioning of devices and end of input and output are directed by specific 
statements (REWIND and ENDFILE) or by subroutine CALLs. 

PROGRAMMED I/O USING READ AND WRITE 

The two basic FORTRAN IV input/output statements are READ and WRTTE. These statements are 
both taken from the computer's viewpoint, i.e. , the computer READs into itself from an external 
device and WRTTE s out to an external device. 

General forms of the READ and WRITE statements for ASCII mode are: 



READ I WRITE (channel) f HstJ 

READ I WRITE (chamiel, format) -f Hst}- 



The first form is used for unformatted I/O and the second for formatted I/O. 
In the statement formats: 

channel is an I/O channel number associated with the file or device. There are 64 channels 
(0-63j^p). See page 6-23 for a iLst of devices and files associated with pre-assigned channels 
and for information on programmer assignment of channels. 

ioT^mat is the number of the associated FORMAT statement or the name of an array containing 
the format specification. 

list is a list of names of variables which are to be given values (READ) or whose values are to 
be written (WRITE). If list is not given, READ will read and ignore an entire record while WRITE 
will output any Hollerith information in the FORMAT statement, perform any carriage control 
specified and write a record. 



6-1 



I/O LISTS OF READ AND WRITE STATEMENTS 

The I/O list contains the names of variables, including arrays and array elements, which are to 
be given values or whose values are to be written. Array elements must be specified with unsub- 
scripted integer variables and/or constants as subscripts. 

If a WRITE statement is unformatted, the I/O list may contain Hollerith strings to be written verbatim 
as they are encountered in the list. 

An I/O list may be written as a simple list of variables; in addition, an I/O list can specify effective 
DO loops with reference to all or a portion of the list of variables. These are called DO-implied 
lists. The form of the DO-implied list is: 



( list , _i=m]^» ^ [> ££3]) 



where: i is the control variable and must be an imsubscripted integer variable. 

mj^ is the lower bound; m2 is the upper bound; and 1113 is the Increment of i. mj^, 
m2, and m3 must be integer constants or unsubscripted integer variables. If 
mo is not given, the increment is +1. 

Some examples of I/O lists are: 



READ(13,5)G, B(l), C, B(2), D, B(3) 
WRITE (12, 101) A, B, I 



DIMENSION A(3, 4) 



READ (11, 5) A 



The READ statement reads in the entire array and is the same as: 



READ(11,5)A(1,1),A(2,1), . . . , A(3,4) 



For punctuation purposes, any portion of an I/O list can be enclosed in parentheses, except within 
the loop specification of a DO-implied loop, i. e. , 



WRITE (12) I, A, A(I,J) 
WRITE (12)(I),A,A(I,J) 
WRITE (12) (I, A), (A(l, J)) 
WRITE (12) ((I, A), (A(I, J))) 



are all equivalent 
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I/O LISTS OF READ AND WRITE STATEMENTS (Continued) 

The DC-implied list affects the transfer of its associated list of variables in much the sam^c way 
that the DO statement affects the range of the DO. Some examples of DO-implied lists are: 



READ (13, 20)A, B, (C(I), 1=1, 3) 

is equivalent to 
READ(13, 20)A, B, C(l), C(2), C(3) 



WRITE (10, 20) (A, B, C, D, 1=1, 2) 

is equivalent to 
WRITE (10,20)A,B,G,D,A,B,C,D 



READ (11,20) (C(I, I), 1=1,4,1) 

is equivalent to 
READ (11,20) C(1.1),C(2.2),C(3,3),C(4,4) 



Note that a DO-implied list must be enclosed in parentheses. 

DO-implied lists may be nested to any depth. A comparison of examples of nested DO-impUed lists 
with nested DO loops will indicate how the nested DO-implied Usts are interpreted. 



READ(13,25)((A(I.J),J=1,4),I=1,9,2) 

The equivalent DO statements would be: 

DO 20 I = 1, 9, 2 
DO 20 J = 1, 4 
20 READ (13,25) A(I, J) 

The equivalent simple list would be: 

READ(13,25)A(1,1),A(1.2),A(1,3),A(1,4), 
A(3,1),A(3,2),A(3,3),A(3,4), 



A(9,1),A(9,2),A(9,3),A(9,4) 
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UNFORMATTED I/O 

The spacing of output, when unformatted, provides an 8 -character field for integer and logical data, 
a 16-character field for real data, a 32-character field for double precision or complex data, and 
a 64 -character field for double precision complex data. A carriage return is inserted when the 
next value to be output would make the line longer than 72 characters. Some examples of unformatted 
WRITE statements and their possible output are: 



1 = 7 
WRITE(12) I 

Channel 12, by default, is the line printer. The above causes printing of the line: 

AAAAAAA 7 



R = 7.1 

WRITE (12) R, I 

causes printing of the Une: 

AAAAO. 710000EAA1 AAAAAAA7 



DIMENSION A(3, 2) 



R = 7.1 
DO 2 I = 1, 3 
DO 2 J= 1,2 
2 A(1,J) = I+(J-1) 

WRITE (12) A(3, 1), R, A(l, 1) 



causes the printout, where I+O-l) has been floated before assignment to A(I,J), of the following: 



AAAAO. 300000EAAlAAAZiO. 710000EAA1 AAAAO. lOOOOOEAAl 



The same array A with the output statement as: 



WRITE (12)"ARRAYA: <15> ",A 



causes the printout: 
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UNFORMATTED I/O (Continued) 



ARRAY A: 

AAAAO. lOOOOOEAAlAAAAO. 200000EAA1AAAA0. 200000EAA1AAAA0. 300000EAA1 

AAAAO. 300000EAA1AAAAO. 400000E AAl 



If the outDut statement Is: 



WRITE (12) (a,K,Aa.K)," <15 > ", K=I. 2)J=1, 3) 



the following printout results: 



AAAAAAAIAAAAAAAIAAAAO. lOOOOOEAAl 



0.2 
0.2 
0.3 



1 i, 0.3 



AAAAAAA3AAAAAAA 2AAAA0. 400000E AAl 



Free form or unformatted READ uses an I/O list to determine the order of input exactly as unformatted 
WRITE uses it for output. 

On input, the programmer distinguishes individual data by separating the data with commas or end-of- 
record indicators (carriage return from the teletype. ) Thus to fiU array A of six elements the FORTRAN 
program will read the teletype (channel 11): 



READ (11) A 



The programmer can satisfy the READ by typing: 



1, 2, 3, 4, 5, 6 ) 
or by typing: 

1, 2, 3} 

4. 5) 
6 ) 

or by typing 

1, 2, 3.1, -5E2, 0, .lE-s) 



The READ will convert data types from integer to floating point or vice versa if required by the 
internal data type. 
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FORMATTED I/O 

In DGC FORTRAN I\', the specification of format serves two basic purposes: 

1) For input (READ), formatting allows the data to be represented compactly and in a 
form suitable for ready duplication of large quantities of input from a card or card 
image medium. 

2) For output (WRITE), formatting allows precise control of the layout of the data as 
it will appear on the printed page. 

Formatting specifications allow the programmer to control field width allotted to any datum, the 
spacing between fields, the assignment of data to particular records or lines, and the notation in 
which the data will be represented externally. 

The specification of format can be given in a FORMAT statement or can be contained In an array 
that is read into at run-time. 

FORMAT Statement 



A FORMAT statement has the form: 



n FORMAT (specification) 



where: n is a statement number that appears in the READ or WRITE statement that references 
the format specification. 

specification is the list of field descriptors, field separators, Hollerith strings, repetition 
constants, etc. , that together define the formatting of the data being input or output. 

The field descriptors of a FORMAT statement are associated with the variables appearing in correspond- 
ing order in the list of a READ or WRITE statement. 



20 FORMAT (FIO. 2, E15. 5) 
WRITE (12,20) A, B 



In the example, the WRITE statement references FORMAT statement 20. Variable A is associated 
with the field descriptor FID. 2, and variable B is associated with the field descriptor E15. 5. 

Specification of Format Information - General 

The specification allows the programmer to describe the format of all forms of numeric data and 
string data, to include Hollerith constants, to set tabular output, to control vertical spacing of output, 
etc. 

Essentially, the specification consists of one or more field descriptors that must be separated 
unambiguously. 
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FORMATTED I/O (Continued) 

Se^Eirators of D6sciriptor FiGlds 

The following are used to separate field descriptors in a format specification: 

Commas can be used to separate field descriptors within a single unit record. A unit record 
is generally defined in terms of the device being accessed — end of lines on teletype or printer, 
80 colunuis on a card, etc. 

No separator is needed in DGC FORTRAN IV if two field descriptors can be identified 
unambiguously. 

Slashes separate field descriptors at the termination of a unit record. 

Repetitive slashes can be used to indicate empty unit records, for example, lines to be 
skipped on the teletype or the Une printer. 



21 FORMAT (14, E15. 5) 

comma between 2 numeric descriptor fields. 

22 FORMAT (14 "DATA IS: " 4E15.5) 

quotes set Hollerith string off imambiguously from preceding and following descriptors. 

23 FORMAT (14, 4E15.5///5F10. 2) 

if output to TTO or LFT, triple space before output of data represented by descriptor 
following slashes. 



Basic Numeric Field Descriptors 

The basic field descriptors to handle numeric data have the following formats: 

Iw - Jnteger 

Fw.d - Floating Paint 

Ew.d - Explicit exponent floating point 

Dw. d - Double precision floating point 

Gw. d - Generalized floating point 

where: w is the field width given in character positions, 

d is the number of digits after the decimal point in real and double precision data (except 
for G output conversion, described later. ) 

Complex data is represented by two real (F, E, G) descriptors. Double precision complex data is 
repiresented by two double precision (D) descriptors. 

Numeric Conversion on Input 

Blanks are ignored for all purposes other than field width coimt, unless they are between two digits or 
between a digit and a decimal point; in those cases they are treated as zeroes. 
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FORMATTED I/O (Continued) 

Numeric Conversion on Input (Continued) 

Any decimal point in the datum will override the position given for the decimal point in the FORMAT 
descriptor. 

All real or double precision data (F, E, G, or D conversion) may have the following forms: 

1) A string of digits optionally signed, containing an optional decimal point, e.g. , 
-33.456 67321 7890.001 

2) A string of digits as above, followed by an exponent of one of the forms: 

Signed integer constant: +44. 5+05 
E followed by signed Integer constant: 673E+04 
D followed by signed integer constant: 789. lD-01 
E followed by unsigned integer constant: 90. EOS 
D followed by unsigned integer constant: -25D02 
(D and E are equivalent forms) 

The field width w always represents the exact number of characters in the external datum on input. 
This includes decimal point, sign if any, and any leading blanks. 



15 FORMAT (I3,F7. 2,E13. 3,G9. 1,D16. 7) 

A22A+25. 65 A-4. 22 201E -01AA7654321 AAAA-67 5 67567-02 

13 F7.2 E13.3 09. 1 D16. 7 

w=3 w=7 w=13 w=9 w=l6 



Output Conversion of Integers 

The Integer is right justified in the field w, and is signed If negative. If the field width is not wide 
enough to output the datum, an * is output, followed by as many digits of the number as will fit. 



10 FORMAT (13, 14, 13, 16) 

AA4A-33*21AA-388 
13 14 13 16 



Output Conversion of Real and Double Precision Data 

For all numeric conversions, the datum is right justified in the output field with leading blanks. 
If needed. Negative data are signed, and the decimal point will occupy the position determined by 
the decimal indicator d in E, F, G, and D conversions. 

If the field width w is not wide enough to output the datum, an * is output followed by an many digits 
of the number as will fit. 
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FORMATTED I/O (Continued) 

Output Conversion of Real and Double Precision Data (Continued) 

F conversion causes output of a real number, signed if negative. Example: 



2 FORMAT (F 10. 2) 
AA- 2 107. 99 



E conversion outputs a real number, signed if negative, as a fraction and an exponent, with the 
rightmost four character positions reserved for an exponent of the form: 



EAee 



E-ee 



DAee 



D-ee 



3 FORMAT (E 16. 8) 
AAA. 10001110EA03 



D conversion outputs a double precision number, signed if negative, with the rightmost four character 
positions reserved for an exponent of the same form as that for E conversion. (The choice of D or E 
as the fourth from the rightmost character position depends upon the internal data type. ) 



4 FORMAT (D25. 18) 

A-. 212212211000005000DA07 



In the G conversion format, d represents the number of significant digits in the external field. Out- 
put of G conversion is either in E format or F format depending upon the magnitude of the stored 
datum. The output is in E format, except when the magnitude of the datum, N is: 



.1 <; N < 10^^ 



Within that range F conversion is used according to the following formula: 



Magnitude of Datum 
0. 1 «; N < 1 
1 S N < 10 



Conversion 
F(w-4).d,4X 
F(w-4).(d-l), 4X 



lo'J-f .< N < 10^-1 
lo''-^ .< N < lo'' 



F(w-4). 1, 4X 
F(w-4).0, 4X 
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FORMATTED I/O (Continued) 

Output Conversion of Real and Double Precision Data (Continued) 

For example: 



Stored data: 90 9000 

Format: FORMAT (2G9. 3) 

External A90.0AAAAA. 900EA04 

Representation: ^ ^ ■n.- ' 

90 9000 



Radix 8 Input/Output Using the O Specifier 

The I, F, D, E, and G descriptors, when preceded by the letter O, do a radix 8 (octal) conversion of 
the same form as they normally do a radix 10 conversion. Note, however, that exponents in all cases 
for the D, E, and G specifiers will be decimal , not octal. 

For example: 



100 FORMAT (213, 20I3, E13. 7, OE13.7) 
WRITE (2, 100) U, 12, II, 12, Rl, Rl 



where: II = 20io» 12 = 8, Rl = . 125*10 , the output will be: 
A20AA8A24A10A. 1250000EA09A. 1000000EA09 



Non-numeric Field Descriptors 

In addition to numeric field descriptors, the following descriptors are used: 

Lw - Logical 

Aw - Alphabetic 

Sw^ - String with maximum width w 

Tw - Tabulate to position w 

nX - Leave n blank character positions 

"string" - ASCII character string 

'string' - ASCn character string 

nHstring - ASCII character string of n characters 

Z - Suppress outpirt of the carriage retirm at the end 

of a record. 

Input and Output of Logical Data (Lw) 

On input T or F as the first non-blank character in the field determines the value. T stores a 

-1 (177777) word (true) and F stores a word of all zeroes (false). On output T or F is right justified 

in field w. 
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FORMATTED I/O (Continued) 

Input and Output of Logical Data (Lw) (Continued) 



5 FORMAT (L3) 

MT 



Positioning Descriptors (nX, Tw) 

The nX descriptor can be used on both input and output. On input n characters of the external record 
wiU be skipped. On output, n blank spaces will precede the next datum. 

The tabular descriptor iw is used on output to cause tabulation to the character position given by w. 
If the carriage is currently positioned beyond the value of w, the descriptor is ignored. ~ 



8 FORMAT (lOX, 14, T25, 14) 

AAAAAAAAAA-456 AAAAAAAAAA- 789 



String Data (Sw) 

fa Nova line computers, characters are stored two per word, and when read in, a character string is 
always terminated by a nuU byte (8 bits of zero). In Sw format w represents the number of characters 
to be read or written. On mput, w characters are read to an associated single variable* (not array) in 
the I/O list, with as many words used as are needed to store w characters, followed by a terminating 
null byte. If the record read does not contain w characters only those characters read are stored and 
terminated by a null byte. Use of the null byte may increase the number of words required to store a 
string as shown in the examples following: 



External datum: 


AA§A$2 ) 




S2 stores: 


AA 


in two words 


S3 stores: 


AA@ 


in two words 


S4 stores: 


AA@A 


in three words 


S6 stores: 


AA@A$2 


m four words 


S8 stores: 


AA@A$2 


in four words 



On output, if the length of the string is n characters, characters wlU be written as follows: 

w = n entire string is written out 

w > n entire strmg is written out, followed by w-n spaces. 

w < n first w characters are written out. 



*A single variable includes an array element. To input or output a strmg variable to or from an array, 
specify the initial array element. 
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FORMATTED I/O (Continued) 
String Data (Continued) 



Internal string: 

S16 produces: 
S20 produces: 
Sll produces: 



ANOW AIS ATHE ATIME 

ANOW AIS ATHE ATIME A AAA 

ANOWAISATHEATIMEAAAAAAAA 

Z^OWAISATHE 



String Literals 

ASCII character literals may be read or written, using one of the string literal forms; 
nHstring "string " ' string ' 



'THISAISAAASTRING. " 
'THISAISAAASTRING. ' 
17HTHISAISAAASTRING. 



equivalent string Eteral formats. 



Use of delimiting quotation marks or apostrophes eliminates the need for counting characters, required 
in the nH format. 

An apostrophe cannot appear within a string delimited by apostrophes. A quotation mark cannot appear 
within a string delimited by quotation marks. 

Alphabetic Data (Aw) 

ASCII characters can be read or written using the Aw format descriptor. On both input and output, w 
represents the field width on the external device. 

On input, since the computer stores two characters per word, a limit of two characters can be read to 
a single variable. The variable should be typed INTEGER (or LOGICAL). The rightmost two char- 
acters in the field w wiU be stored. If w is 1, one character will be stored in the left half of a word 
and a blank stored In the right half. To store a series of characters in contiguous locations, an integer 
array variable and repetitive Aw formats can be used. 

If the next input for processing is: AA(flA$2 



A4 stores: 
A2 stores: 
A3 stores: 
A6 stores: 
2A2 stores: 

3A2 stores: 

3A1 stores: 



@A 

AA 

A@ 

$ 2 

AA and @A 

in next two variables of the I/O list 

AA and §A and $ 2 

in next three variables of the I/O list 

AAand AAand@A 

in next three variables of the I/O list 
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FORMATTED I/O ^Continued) 

Alphabetic Data (Continued) 

On output, the characters are right-justified with leading blanks, if any. If the field width is less 
than two, the leftmost character will be represented with truncation to the right. 



6 FORMAT (A6) 

WRITE (12,6) B where B contains HOUR 

A A A A HO representation on external device 



Nnt(^ th^t ^n four f*hflr8cters ^HOUR^ could have been out^uit usipf^ 2A2 as the format six^cification. 

Repetition Constant 

One field descriptor or group of field descriptors can be preceded by an integer, called a repetition 
constant. The field descriptor or group of field descriptors will be repeated the number of times 
indicated by the integer. 

All numeric field descriptors and the Aw and Lw descriptors can be preceded by repetition constants. 
The remaining non-numeric descriptors cannot have repetition constants. 

An example of repetition of individual field descriptors is: 



9 FORMAT (212, 3F11.2) 

which is the same as: 
9 FORMAT (12, 12, F11.2, Fll,2, Fll. 2) 



If a group of two or more field descriptors are enclosed in parentheses, the entire group can be 
preceded by a repetition constant. For example, the specification: 



10 FORMAT (12, 3(E14.5, LI)) 

is the same as: 
10 FORMAT (12, E14.5, LI, E14.5, LI, E14.5, LI) 



Individual and group repetition constants can be combined in a given format; for example: 



11 FORMAT (G13. 2, 2(F10. 1, 314 ) ) 

is the same as: 
11 FORMAT (G13. 2, FlO.l, 14, 14, 14, FlO. 1, 14, 14, 14 ) 
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FORMATTED I/O (Continued) 
Multiple Record Forms 
The statement 



10 FORMAT (12, 3F12, 1) 



can be used to transmit more than four items of data. Each record (or output Hre) would consist 
of four data. For example: 



WRITE (12, 10) I, A, B, G, J, D, E, F 
10 FORMAT (12, 3F12. 1) 



might produce: 



A4AAA3456798. 6AAA4545551. 1AA33333366. 7 
A2 AA/_£,A99999. 2AAAAAAA112. 3AAA^00785. 4 



The FORMAT specification may have two or more different record formats. They are separated by 
slashes. For example: 



WRITE (12, 10) I, A, B, C, J, D, E, F 
10 FORMAT (12, 3F12. 1/14, 3F12. 1) 



would affect the same data as follows: 



A4AAA3456798. 6AAA4545551. 1AA33333366. 7 

AAA2:"_A A/-' / 99999, 2 A/: A ,•'.;•• AA 112. 3AAAA900785. 4 



If the list of the WRITE statement above has 16 variables, then the first and third Unes would be 
output in the same format and the second and fourth Unes would be output in the same format. Record 
processing thus returns to the delimiting left parenthesis when the format descriptors are exhausted. 

If multiple-Une format is desired, the second record specification is enclosed in parentheses. 
Multiple-line format is where the first line is printed in a given format while the remaining lines 
are printed in another format. This is done without returning to the first left parenthesis when 
the list has been exhausted. For example: 
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FORMATTED I/O (Continued) 
Multiple Record Forms (Continued) 



WRITE (12, 10) I, A, B, C, J, D, E, F 
10 FORMAT( "RESULTS IN INCHES"/(I5, 3F12. 1)) 



would produce the following: 



RESULTS IN INCHES 

AAAA4AAA3456798. 6AAA4545551. 1AA33333366. 7 

AAAA2AAAAA99999. 2AAA a AAA112. 3AAAA900785. 5 



Additional slashes will cause vertical lines (records) to be skipped. For example: 



WRITE (12, 10) I, A, B, C, J, D, E, F 

10 FORMATC'RESULTS IN INCHES"// (15, 3F12. 1)) 

RESULTS IN INCHES 

AAAA4AAA3456798. 6AAA4545551. 1AA33333366. 7 

AAAA2AAAAA99999. 2AAAAAAA112. 3AAAA900785.4 



When parentheses are nested In a FORMAT statement, they are assigned level numbers, with the 



10 FORMAT (3E 10. 3, (12, 2(F12.4,F10. 3)),D20. 12) 
12 21 



If data items remain to be transmitted after the descriptors in a multiple level FORMAT statement 
have been "used", the format is repeated from the last previous parenthesis that is a level zero or 
a level 1 left parenthesis. In the FORMAT statement above, the format would be repeated beginning 
at 12, the first descriptor following a level 1 left parenthesis. 

Vertical Carriage Control 

The first character of formatted output is a vertical carriage control character. The control characters 
recognized are: 

- double space before printing 

1 - form feed before printing 

Carriage control characters are normally placed at the beginning of unit records in the FORMAT 
specification. One of the string descriptors can be used to insert the carriage control character. 
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FORMATTED I/O (Continued) 



Vertical Carriage Control (Continued) 



5 FORMAT (IHl, 4E15. 5/C'O", Fll. 2, 4E15.5)) 

form double space 

feed single space 



When the first character of formatted output is part of a datum associated with a numeric field descriptor, 
it will be interpreted as a carriage control character. 



15 FORMAT (12) 



If the datum associated with 12 is 15, a form feed is given and 5 is yirinted. If the associated datum is 
05, a double space is given before 5 is printed. If the associated datum is A 5, the normal single 
carriage return/line feed occurs before 5 is printed. 

The Z field descriptor can be used to suppress carriage return on output. Tlie Z descriptor should 
always be the last descriptor in the FORMAT statement and will suppress the carriage return when 
writing the record. 



1 = 3 
J = 4 
3 FORMAT (IX, 16) 
WRITE (12, 3) I 
WRITE (12, 3) J 



will print: 



A '.AAA3 ) 
AA.AA A4 ^ 



but 



1 = 3 
J=4 
3 FORMAT (IX, 16, Z) 
WRITE (12, 3) I 
WRITE (12. 3) J 



will print 
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FORMATTED I/O (Continued) 
Vertical Carriage Control (Continued) 



AAAAA3AAAAA4 



Scale Factor 

All floating- point numeric conversions (F, E, D, G) can be preceded by a scale factor of the form: 



nP 



where: n is a signed or unsigned integer. 

A scale factor precedes the basic field descriptor and any repetition constant. Once a scale factor 
is given for a field descriptor it remains in effect for all F, E, G, and D conversions in the 
FORMAT statement, unless changed. For example: 



10 FORMAT (3PF9. 3, 2E15. 1) 

is the same as: 
10 FORMAT (3PF9. 3, 3PE15. 1, 3PE15. 1) 



A scale factor of OP is the same as no scale factor. For example: 



11 FORMAT (OPG 10. 2) 

is the same as: 
11 FORMAT (GIO. 2) 



The effect of a scale factor on a datum varies with the datum, tlie type of conversion (F, E, D, or G), 
and the direction (input or output). 

On input if the datum has an explicit exponent , the scale factor has no effect. This is true for all 
conversion formats: E, F, G, or D. 

On input if the datum has no explicit exponent, the scale factor conversion formula is: 



input datum x 10 - = internal representation 
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FORMATTED I/O (Continued) 



Scale Factor (Continued) 



For example: 



External data: -25.44 345.71 

Format: 15 FORMAT (2PF10. 2, G8, 2) 

Data stored: -.2544 3.4571 

(decimal representation) 



On output using E or D conversion, the real constant portion of the stored value is multiplied by 10- 
and n is subtracted from the exponent portion of the stored value. This means that the value remains 
the same although formatted differently, e.g. : 



Stored data: 9000 9000 

Format: 14 FORMAT (E13.4, 2PE13.4) 

External Is^&d.. 9000EA04AA90. 0000EA02 
Representation: 



When G conversions are in E format, they also follow the formula above. 

On output on F conversion, the stored value is multiplied by 10-, actually altering the external 
value, e.g. : 



Stored data: 9000 9000 

Format: 16 FORMAT (FIO. 2, -4PF10. 2) 

External AAA9000. OOA.'iA.". ^-.AA. 90 
Representation: 



The scale factor has no effect on G conversion within the F range. G conversion thus always transfers 
the value unchanged whether the F or E format is chosen. 

Run-Time Format Specifications 

I/O statements can reference an array containing a formatting specification, rather than a FORMAT 
statement. This allows formatting information to be read in at run-time and changed for different 
data. 

The formatting array contains a format specification, includiiig the zero-level left and right parentheses, 
but not the word FORMAT. The closing right parenthesis must be followed by an exclamation point (!). 
The character string that is the format specification can be stored in an array by use of a formatted 
READ that uses a format containing- Aw or Sw descriptors. 
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FORMATTED I/O (Continued) 



To use run-time formatting, the user must: 

1) Determine how large an array will be needed for the largest incoming format specification. 
If core space is not critical, the user can estimate. 

2) Dimension the array in a DIMENSION, COMMON, or type declaration statement. 

3) Include an appropriate storage statement or statements. Most commonly, this will be a 
READ statement and a FORMAT statement that wiU read the format specification into array 
storage using Aw or Sw descriptors. 

4) Reference tlie format array in the READ statement used for input of data. 

5) Supply formatting information to be read into the array at run-time. 
For example using the Aw format: 



DIMENSION FT (12) 
2 FORMAT(24A2) 

READ (11,2) (FT(I), I = 1, 12) 

READ (11, FT) J, W, X, Y, Z, (C(I), 1 = 1,7) 



Or using the Sw format: 



DIMENSION FT (12) 
2 FORMAT (S47) 

READ (11, 2) FT (1) 

READ (11, FT) J, W, X, Y, Z, (C(I), I = 1, 7) 



The information supplied at run -time might be: 



(13, 4E15.6/7F10. 3)! 



The number of characters to be stored in the example is 20, including blanks, well below the 48- 
character maximum allowed in array FT. 

BINARY I/O 

Binary data can be transferred to and from an external medium using the statements: 
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BINARY I/O (Continued) 



WRITE BINARY ( channel ) list 
READ BINARY (cliaimel) list 



where: channel and list are the same as for ASCII mode 

In accordance with the I/O list, data is transferred at two bytes per word, where the number of words 
transferred depends upon the internal data representation: 1 word for integer, 2 for real, 4 for 
double precision and complex, and 8 for double precision complex. The high order or left byte is 
transferred first. 

CONSOLE INPUT AND OUTPUT 

ACCEPT and TYPE Statements 

Unformatted I/O on the console frees die user from the details of FORMAT specifications while 
providing for legible documents and easy-to-use I/O statements. 

The statements ACCEPT and TYPE are used with console input and output respectively. The format 
of ACCEPI is: 



ACCEPT list 



where: list is a list of variables and, optionally, string constants. When the ACCEPT statement 
is executed, values for the variables of the ACCEPT list are input from the console. Any 
string constants given in the list of the ACCEPT statem.ent are output at the console and can 
serve as a guide as to what input value is required. 

The format of the TYPE statement is: 



TYPE list 



where: list is a list of variables for which values are to be output when the statement is executed 
and, optionally, string constants to be output. 

Note that if channel 10 is to be reassigned via OPEN or FOPEN, either no TYPE or ACCEPT state- 
ments should be used or channel 10 must be closed. The following code will produce a fatal run- 
time error (illegal channel number): 

TYPE "STARTED" 

CALL OPEN (10, "FILE",. . . ) 

Channel 10 is already open to $TTO at this point; insertion of CALL CLOSE (10, lER) will prevent 
this problem. 
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TELETYPE INPUT AND OUTPUT (Continued) 
ACCEPT and TYPE statements (Continued) 

Sample Program 

A sample program using teletype 1/0 is shown below: 



BENCHMARK TEST OF DOC FORTRAN 
DIMENSION RARRAY (2000) 
COMMON RARRAY, AUTOC, SO 
ACCEPT "ARRAY SIZE=", IAS, 
1"INITIAL RANDOM NUMBER=", RNl 
IF(IAS-2000) 2,2,3 
TYPE "ARRAY SIZE MAX IS 2000" 
GO TO 1 

CALL RANDOM (RNl, IAS. RARRAY) 
CALL CORRELATE (IAS) 
TYPE "AUTOCORRELATION=",ALTOC, 
I" <15 > " , "STANDARD DEVL\TION=", SD 
PAUSE 
GOTOl 
END 



The teletype operation might appear as follows. Underscoring indicates computer output, (values 
not underscored are input by the programmer), and ) stands for carriage return given by the 
programmer. 



ARRAY SIZE = 500 ) 

INITIAL RANDOM NUMBER = . 93826 ) 

AUTOC O RRELATION = . 73152E - A 1 

STANDARD DEVIATION = . 201552EAA0 

PAUSE 



Rules of Teletype 1/0 

The following rules apply to input: 

1) More than one value can be called for in an ACCEPT statement. The input values can be 
separated by commas or a carriage return. 

2) Output of Hollerith strings can be mixed with input of data in the ACCEPT statement, providing 
for example, a guide as to what input value is required. 

3) When Hollerith string output is interspersed with data, a carriage return must be given at 
the teletypewriter to force the next string to be out^^ut. For example, the carriage return 
after 500 is necessary to prompt the typing of "INITIAL RANDOM NUMBER=". 

4) ACCEPT will convert integers to real or double precision if the data type of the internal 
variable requires. 
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TELETYPE INPUT AND OUTPUT (Continued) 
Rules of Teletype I/O (Continued) 

On output the TYPE statement provides the following field widths: 

8 - integer 

16 - real 

32 - double precision and complex 

64 - double precision complex 

A carriage return is inserted when the next quantity will not fit on the current line. In either the 
ACCEPT or TYPE statement, a carriage return is output by " < 15 >". A form feed is output by 
" < 14 > ". These characters must be the last characters in a Hollerith string since they cause the 
operating system to terminate output. 

TYPE or ACCEPT statements also provide for transfer of whole arrays and array elements with 
integer variables or constant subscripts. 



TYPE "RARRAY: < 15 > ", RARRAY 



causes the entire array, RARRAY, to be typed out. More reasonably: 



TYPE 'THE", IAS, "RANDOM NUMBERS ARE <15>", 
1(RARRAY (I), 1=1, IAS) 



outputs only that portion of RARRAY that is filled by subroutine RANDOM. 

Note in the example that the DO-implied loop must be enclosed in parentheses and that a comma 
precedes the control variable, I. 

DO-implied loops can be nested. 



DIMENSION A(3, 5) 



ACCEPT ((A(I,J), I = 1,3),J = 1,5) 
C VERIFY INPUT 

TYPE "J I VALUE < 15 > 

l(a,I,A(I,J), 1=1,3), J =1,5) 



I/O lists can contain all combinations of variables, arrays, array elements, Hollerith strings, and 
DO-implied loops, separated by commas. 
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CONTROL I/O 



Channel Access 



Files including devices, are associated with a channel number (0-63) before that file or device may be 
accessed. To open a fUe, an I/O statement must reference a pre-assigned channel from the list below 
or the file and channel must be associated by a call to FOPEN or OPEN (see pages 3-10 and 3-11, Part II). 



Pre-assigned Channel # 


Device Name 


Device 




6 


$PLT 


Incremental Plotter 


8 


$TTP 


TTY punch 




9 


$CDR 


Card reader 




10 


$TTO 


TTY printer 


$TT01 in foreground 


11 


$TTI 


TTY keyboard 


$TTI1 in foreground 


12 


$LPT 


Line printer 




13 


$Fi'K 


Paper tape reader 


(AbCll mput must be even parity. ) 


14 


$Frp 


Paper tape punch 




15 


$TTR 


TTY reader (ASCII input must be even parity. ) 



Any of the 64 channels 0-63 can be referenced in a call to FOPEN with any device or file name as 
an argument. If the channel has an associated device, this association is temporarily suspended until 
PC LOS or RESET is called. 

End-of-File or Error Transfer of Control 



The user can regain control after an end-of-file has been encountered or an I/O error at the 
driver level (parity, record size) has been detected. 

Within a READ or WRITE statement, the return statement number is given by the following 
syntax: 



READ 


(channel, [format, ]ERR = 


= n,) [list] 




WRITE 


(channel, [format, ]ERR = 


= n^) [Ust] 




READ 
WRITE 


(channel, [format, ]END = 
(channel, [format, ]END = 


= n2) [Ust] 
= n2) [Ust] 




READ 
WRITE 


(channel, [format, ]ERR = 
(channel, [format, ]ERR = 


= ni , END 
= n^ , END 


= n2) [Ust] 
= n2)[Ust] 


READ 
WRITE 


(channel, [format, ]END = 
(channel, [format, ]END = 


= n2 , ERR 
= n2 , ERR : 


= n^) [Ust] 
= ni) [Ust] 



where: nj^ is the return statement number for an I/O error. 

n2 is the return statement for an end-of-file. 
REWIND Statement 



REWIND channel 
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CONTROL I/O (Continued) 

REWIND Statement (Continued) 

The REWIND statement causes the file associated with channel (0-63 _) to be positioned at the initial 
record. 

If the REWINT) statement is executed in the same program as the OPEN (or FOPEN) call for that 
particular channel, no special handling is required for the file name associated with the channel. 
However, if the REWIND is to be executed in some other program (for example, one at a higher 
level than that containing the OPEN), the file name of the file to be rewound must be stored in 
blank or labeled COMMON. 

ENDFILE Statement 



1 ENDFILE channel 

I 



The ENDFILE statement causes the file associated with channel (0-63jo) to be closed. If an end of 
file is encountered during execution of a READ statement, execution of the program is terminated 
unless the end of file was prepared for in the READ statement. 

Random Access Files (FSEEK) 



Using the Real Time Disk Operating System, random access files are keyed by record number. By 
default, a random file is initially positioned to the beginning of record 0. As records are read or 
written, the file is positioned to the beginning of the next unread or unwritten record. 

The user, though, can position the random file to a given record for reading or writing by giving a 
call to FSEEK preceding READ or WRITE. The call to FSEEK has the format: 

CALL FSEEK (channel, recordnumber ) 

where: channel is the channel number of the random file. 

recordnvmber is the number of the next record to be read or written. 

An example of a call to FSEEK is: 

CALL FSEEK (JCHAN, INUM) 

Rereading and Rewriting Records (CHSAV, CHRST) 

Two library routines are provided that enable the user to reread or rewrite records of a disk file. 
The mechanism employed is to save the status of a FORTRAN channel, issue any number of reads 
or writes, and then restore the original status of the channel. The records processed between the 
save and restore can now be read or written again. The following call to CHSAV is used to save the 
status of a channel: 

CALL CHSAV ( channel, start-word ) 

where: channel is an integer constant or variable specifying the number of the channel to be used 
within the range to 63 (decimal). 

start -word is an element of an integer array specifying the start of a three-word block. 
The three-word block is used to save the channel status for restoration. 

The call to CHRST is used to restore channel status, it's format is: 
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Rereading and Rewriting Records (CHSAV, CHRST) (Continued) 

CALL CHRST (channel, start-word ) 

where: channel is an integer variable or constant with a value between and 63 (decimal) 
specifying the number of the channel to be used. 

start-word is the first element of the three-word block in which the previously saved 
cIis-iuigI stS-tus is stor'^d 

Note, for example, that this provides the user with the ability to read a record that contains 
formatting information and use this information to reread the same record using a different 
format. 

The status on more than one channel may, of course, be saved, and the status of every read 
on a given channel may be saved using an appropriate two-dimensional integer array. This 
gives the user a powerful means of returning to process any record within a given disk file. 
An array declared as: 

1(3, 100) 

can be used to save up to 100 blocks of channel status information. 

Both routines will cause a non-fatal error message if the channel specified is not open, and 
CHRST will cause a non-fatal error message if an attempt is made to restore channel information 
that has not been saved. 
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CHAPTER 7 
SPECIFICATION STATEMENTS 



UHi-UNlllUN 



Specification statements are non-executable statements that provide the FORTRAN IV compiler with 
information about storage allocation and data types of simple variables and arrays to be used in the 
program. 



niMENSION STATRMF-MTS 



Format: 



DIMENSION ai (ij), £2(12),. . . , ^.(i^) 



where: each a is the name of an array. 

each J. represents the subscript bounds of the array. 

DIMENSION statements give the subscript bounds of arrays for allocation of storage to the arrays. 
A given array can only be dimensioned once. It can be dimensioned in a DIMENSION, COMMON, or data- 
type statement. Dummy array argument names may appear in DIMENSION statements (adjustable 
dimensions). 

The general form of a subscript bound is: 



sb|, sb^,. 



^ 



where: each sb is an Integer constant, a dummy integer variable, or a (possibly mixed) 
pair of these separated by a colon (:). 

When a subscript bound consists of a pair of values or variables separated by a colon, the first value 
or variable gives the lower bound of the dimension of the array and the second value or variable gives 
the upper bound of the dimension of the array. 

When a subscript bound is a single integer, a lower subscript bound of 1 is implied. For example: 



DIMENSION GEORGE (3. 5, 2, 2) 



is identical to: 
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DIMENSION STATEMENTS (Continued) 



DIMENSION GEORGE (1:3. 1:5, 1:2, 1:2) 



If the same array structure were desired with the subscripts starting at zero, the following 
statement would accomplish this: 



DIMENSION GEORGE (0:2, 0:4, 0:1, 0:1) 



Subscript bounds may give adjustable dimensions when the dimensions and the array name are 
contained within a subprogram and are dummy arguments to that subprogram. For example: 



SUBROUTINE R(A, I, J, K) 
DIMENSION A(I, J, K) 



Array dimensions are not passed to subroutines, the dimensions declared within the subroutine determine 
the array size and structure usable within the subroutine. 

Two methods are available to support variable size arrays within subroutines. The first method is called 
adjustable dimensioning and merely involves using variables to specify array dimensions. For example, 
the array dimensions could be passed as arguments to the subroutine as follows: 

SUBROUTINE ABC (I, J, K, A) 
DIMENSION A (I, J, K) 



END 

The second method available is to dimension the array to be essentially boundless. This is performed 
by specifying the array size to be one. Caution must be exercised with this method. For example, if the 
following subroutine is executed, an endless loop will result: 

SUBROUTINE PRINT (A) 
DIMENSION A(l) 
WRITE (10) A 
RETURN 
END 

Since the array A has no bounds, subroutine PRINT will start printing the contents of core starting where 
array A is allocated. This subroutine should have used an implied DO loop to write the contents of array 
A, such as the following: 

WRITE (10) ( A ( I ), I = 1, 10) 
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DATA-TYPE STATEMENTS 



Eormat: 



INTEGER v^, V2.. . . , Vj^ 

REAL v_i, V2, . . . , Vj, 

DOUBLE PRECISION Vj, V2 Vn 

DOUBLE PRECISION COMPLEX v^. Vjj , . . . , 
LOGICAL V]^. V2 , . . . , v^ 



v„ 



where: each v is a variable name, an array name, a dimensioned array name, a function name, or 
a statement function argument name. 

A data-type statement is used to specify the type of data that can be assigned to a variable. Variables 
used for storage of double precision, complex, double precision complex, and logical values must be 
specified in the appropriate data type statement. Tlie data type of a variable may not be changed within 
a program unit. INTEGER and REAL type statements may be used to override implicit data typing. 

Arrays may be dimensioned in data-type statements and dummy arguments may appear in data-type 
statements: 



INTEGER XI, X2 

REAL MEAN, MEDIAN 

DOUBLE PRECISION DEL, LONG(IO) 

COMPLEX IMAG 

LOGICAL QUES, WHICH (0:9, 0:9) 



COMHLER DOUBLE PRECISION STATEMENT 



As the initial statement of a program, the statement 



COMHLER DOUBLE PRECISION 



forces aU REAL variables and constants to DOUBLE PRECISION and all COMPLEX to DOUBLE 
PRECISION COMPLEX. The COMHLER DOUBLE PRECISION statement overrides any succeeding 
REAL or COMPLEX statements and forces all floattag-point constants to four word precision. Single 
precision library fimctions having double precision counterparts will be recognized, and calls generated to 
the appropriate double precision functions. (Library function precision is not overriddsn for functions 
passed as arguments nor at any time in the 8K compiler. ) 

The programmer can reduce his object program size by using all single or all double precision var- 
iables and constants, since the single and double precision arithmetic packages are separate. Each 
requires about 600 words of storage. Use of the COMHLER DOUBLE PRECISION statement thus 
insures that only the double precision arithmetic package is loaded. 
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COMMON STATEMENT 



Format: 



COMMON / block 1 / list , , . . / block n / list^ 



where: each list is a list of names of variables and arrays 

each block is the name of a block of common storage that is to contain the list following 

A common block is a storage area shared by program units of a FORTRAN program. Storage is 
allocated to variables and arrays in a common block in the order in wliich the variables appear in 
COMMON statements. 

There are two types of common storage. If a block name precedes a list of variables, all listed 
variables following that name are placed in a common storage area having the block name as a label; 
this is called labeled common. If no block name precedes the list, all variables of the list are placed 
in an unlabeled common area; this is called blank or unlabeled common. In a rOJ/IMON statement, blank 
common can be indicated by an empty field between two slashes (/ /). If the blank common list 
appears as the first list in the COMMON statement, the slashes are not needed. 

The size of blank common in the various program units does not have to match; blocks of labeled common 
must match in size in the different program units. The size of a common block can be increased 
by EQUIVALENCE statements as well as COMMON statements. 

A given common block may appear more than once in a COMMON statement or given program unit. 
Variables continue to be assigned in that order to the given common block. Arrays may be dimensioned 
in a COMMON statement. Dummy arguments may not appear in a COMMON statement. 

Labeled COMMON takes space at load time, whereas unlabeled COMMON (and stack variables and arrays) 
are allocated at execution time and can thus use space previously occupied by the relocatable loader. 
To reduce object program space requirements, keep labeled COMMON to a minimum. 



COMMON A, B, C, D(3,4), E 
COMMON / LB / U, V (2, 3), VAR 



The two COMMON statements above are the same as the following COMMON statement: 



COMMON / LB / U, V(2, 3), VAR // AV,B,C,D(3,4), E 
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COMMON STATE ME hrr (Contanued^ 



COMMON / BLK /A, B, C 
COMMON / BLK / E, F, G 



■HJrogram unit 1 
—program unit 2 

<stnTacrp' in RT V 



ABC 
| E F G 



COMMON A, B, C (10, 10) 
DOUBLE PRECISION A, B 



COMMON P(4), D(IOO) 



—program unit 1 



—program unit 2 



In the above example, the programmer wants to reference array C in program unit 1 by array D in 
program unit 2. To do so, he must leave four dummy locations in common (P(l) to i{4)) representing the 
two double precision variables A and B: 

storage of blank common 



A A B 
P(l) P(2) P(3) 


B 
P(4) 


C(l.l) 
D(l) 


C(2,I) ... 
D(2) 


C(10,10) 
D(IOO) 



EQUIVALENCE STATEMENT 
Format: 



EQUIVALENCE (llst^, ( list, ). .... (llst^) 



where: each list is a list of names of variables, arrays , and array elements having constant 
subscripts 

An array name with no subscript is assumed to be the first element of the array. 

All variables named within a given list of an EQUIVALENCE statement share the same storage area. 

E)ummy argument names of arrays cannot appear in EQUIVALENCE statements. 

Since Data General's FORTRAN IV places non-COMMON variables on a stack separate from all 
other variables, no EQUIVALENCE is allowed to non-COMMON variables. 

Equivalencing storage should not be used to equate entities mathematically. For example, if a REAL 
variable is equivalenced with a DOUBLE PRECISION variable, the REAL variable will share storage 
with only the first storage unit of the two-unit DOUBLE PRECISION variable. 
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EQUIVALENCE STATEMENT (Continued) 



Array elemeitts in EQUIVALENCE statements may be referenced by complete subscripts or a single 
subscript equal to the element's positional value. 

When an element of one array is equivalenced with an element of another array, that determines 
storage correspondence for all elements of the arrays. 

Only one variable, array, or array element from a given EQUIVALENCE list can appear in a 
COMMON statement within the program unit. 

When an array element appears in an EQUIVALENCE list with an array element that is in a common 
area, the equivalencing may lengthen the common area. Common may only be extended beyond the last 
assignment of storage made in a COMMON statement; no core storage is left empty to provide for 
EQUIVALENCE extensions in the other direction. 



DIMENSION B( 6), D(4) 
COMMON D 
EQUIVALENCE (B(l), D(2)) 



Storage in Blank Common Area 



D(l) 


D(2) 
B(l) 


D(3) 
B(2) 


D(4) 
B(3) 


B(4) 


B(5) 


B(6) 



Extended Common 



EXTERNAL STATEMENT 



Format: 



EXTERNAL s^, Sj, . 



where: each s is the name of a function subprogram or subroutine subprogram. 

The EXTERNAL statement specifies subprograms as external to the program unit in which the 
specification is made. 

The EXTERNAL specification must be given to names of functions, subroutines, and tasks that appear in 
the program unit as arguments to be passed to another subprogram. The EXTERNAL specification causes 
the argument to be recognized as a subprogram, rather than an array or variable. An address for the 
subprogram argument can then be passed to the called subprogram. 

The data type of an EXTERNAL function subprogram may appear in a data type statement in the calling 
program. 
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EXTERNAL STATEMEm' (Continued) 



REAL ROOT 
EXTERNAL ROOT 

CALL MULT (A, B, ROOT) 



Subroutine MULT is called with REAL function ROOT as 
the last argument. 



SUBROUTINE MULT (Q, R, S) 



Q = S(Q,R) 



This^nerates a call to the function passed via dummy 
argument S, 



COMHLER NOSTACK 



Format: 



COMHLER NOSTACK 



The COMHLER NOSTACK statement may optionally appear as the first statement of a program unit 
or as the second statement if the COMHLER DOUBLE HIECISION statement is given. 

The statement may be used with aU versions of DGC FORTRAN IV except the 8K configuration. When 
given, the statement causes aU non-COMMON variables and arrays to be placed in a fixed location in 
memory rather than on the run-time stack. It provides the following: 

1) DATA initiaUzation of non-COMMON variables. 

2) All free variables are initialized to zero at load time. 

3) Variables within a subprogram are available upon re-entry to the subprogram for the 
second and subsequent times. 

Attributes 2 and 3, although not ANSI FORTRAN requirements, exist at many installations and are expected 
by many existent FORTRAN programs. If a working program compiles successfully using the DGC 
FORTRAN compiler without the NOSTACK option but does not run correctly, use the option to determine 
if the programmer was expecting either memory to be zeroed or variables to remain unchanged. If so, 
the program can be receded to generate the most efficient code by placing just the necessary variables 
in a labeled COMMON and recompiling without the NOSTACK option. 
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CHAPTER 8 
DATA INITIALIZATION 



DATA STATEMENT 



Format: 



ui\ i. i\ vjj.gi :^ / CUaH/ viist 2/ 'Jii.ai. 2/ ■ . . vJJSLn / ciiat^ / 



where: each vlist is a list of names of variables, arrays, and array elements with constant 

subscripts. 

each clist is a list of optionally signed constants. 

A DATA statement defines initial values iar variables and array elements. Variable and constant 
lists are paired in the statement. Constants are assigned to variables according to their positions in 
the paired list. 

In general, arithmetic and logical variables are initialized with constants that have the same data 
type. COMPLEX variables are initialized with two single-precision real numbers; DOUBLE PRECISION 
COMPLEX variables are initialized with two double -precision real numbers. 

Any variable, except COMPLEX and DOUBLE PRECISION COMPLEX, may be initialized with string 
data. Each character of a string constant will occupy one byte (two characters per 16-bit word). For 
example, an 8-character string constant will fill 4 DSfTEGER or LOGICAL variables, 2 REAL variables, 
or 1 DOUBLE PRECISION variable. A strir^ constant will initialize any number of consecutive words, 
depending only upon the length of the string. No correspondence is requu-ed between data type and 
string length. 

A striog constant in a DATA statement is different from one in a FORMAT statement or elsewhere 
in the program in that a word of binary zeroes is not generated at the end of the constant when the 
character count is even. Elsewhere in a program, the word of zeroes is generated to indicate the 
end of a string. (See Chapter 6, Sw Field Desciptor). 

The variable list may contain the names of variables, arrays, and array elements that are in a labeled 
common area. * Stack variables and variables in blank common may not appear in the list. Dummy 
arguments may not appear in the variable Ust. 

If the name of an array appears in the variable list, the name is assumed to stand for the first element 
of the array unless it is the last name in the list. In the latter case, all remaining constants will be 
assigned to the sequential elements of the array. 



*According to ANSI FORTRAN standard X3. 9-1966, variables stored in labeled common may have 
the initial values assigned only if the DATA statement appears in a BLOCK DATA subprogram. This 
is not necessary in DGC FORTRAN IV. 
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DATA STATEMENT (Continued) 

Within the constant list, a group of constants may be specified with a repeat count and multiplication 
symhol. The repeat coiint specifies the numi)er of times the constant is to be assigned to variables 
of the variable list. For example: 



DATA A, B, C, AR(1, 1), AR(2, 2), AR{3, 3)/6*1.0 / 



causes the datum 1.0 to be assigned to the six variables of the variable list. A repeat count 
cannot be used with a string constant. 

If the constant list is longer than the variable list, the constants will be placed in succeeding storage 
locations as long as their data type agrees with the type of the last variable in the list. 



DATA I, A/1, 7. 0,382. 0,5*3. 0,0.0/ 



A is intialized to 7.0, and the next seven storage locations are initialized to the seven real constants 
following 7. ui the constant Ust. 

The contents of the DATA statement may consist of one or more paired lists of variables and constants. 



DATA X, Y, I, L, S, P/2*l. 1, 0, . TRUE. , 5HPR1CE/ 

is equivalent to 
DATA X, Y/2*l. l/,I/0/, L/.TRUE. /, S, P/5HPRICE/ 



Note the commas preceding I, L, and S. These are allowed for compatibility with other compilers but 
are not required for DGC FORTRAN IV. 

BLOCK DATA SUBPROGRAM 



Variables in labeled common may be initialized to values in a BLOCK DATA subprogram. The BLOCK 
DATA subprogram begins with the statement BLOCK DATA and terminates \vith an END line. It contains 
only DIMENSION, DATA, COMMON, data-type, and EQUIVALENCE statements. 

All variables in a given labeled common block must be listed in the COMMON statement (or statements) 
in the BLOCK DATA program even if not all the variables are initialized to values in a DATA statement. 



BLOCK DATA 

COMMON/ELN/C,A,B/RMC/Z,Y 

DIMENSION B(4), Z(3) 

DOUBLE PRECISION Z 

COMPLEX C 

DATA B(l), B(2)/2*l. l/C/2.4, 3. 769/Z(l)/7. 649D5/ 

END 
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CHAPTER 9 

FUNCTIONS AND SUBROUTINES 



FUNCTIONS 

Functions have the following characteristics: 

1. They are referenced by the appearance of the name of the function in an expression. The name 
is followed by any actual arguments to the function. 

2. They return a single value for the function to the point of reference. 
3= Thev have a data tvpe* 

DGC FORTRAN functions are: 

1. Statement functions, which are single statements written and compiled as part of a program 
unit (internal). 

2. Function subprograms, which are written and compiled as separate program units (external). 

3. FORTRAN Ubrary functions, which are supplied with the compiler. 
Statement Functions 

Format: 



f(ai, £2, . . . ,a ) = e 



where: f is the name given by the programmer to a function. Within a program unit, statement function 
names must be unique in their first five characters. 

Each a is a dummy argument name, 

e is an expression. 

The expression on the righthand side of the statement function is evaluated and assigned to the function 
name on the lefthand side. 

Statement functions follow the rules of data type assignment as given in Chapter 4. Function names can 
be explicitly typed using data-type statements or can be implicitly typed as REAL or INTEGER by 
applying the IJKLMN convention to the function name. 

Where dummy argument names are identical to identifiers appearing in type declaration statements, the 
dummy arguments will have the type declared. 

Besides the dummy arguments, the expression e can contain: 
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FUNCTIONS (Continued) 
Statement Functions (Continued) 

1. Constants of any type. 

2. Variables stored in a COMMON area. 

3. Function references to previously defined statement functions, to FORTRAN library functions, 
and to external functions. 

The name of the function in a statement function is internal to the program unit and cannot appear in an 
EXTERNAL statement. 

To use a statement function, the programmer places a reference to the function in an expression to be 
evaluated. The reference contains the function name and actual arguments to replace the dummy 
arguments. The actual arguments are passed to the statement functions, e is evaluated, and the value 
is returned to the reference point. 

The actual arguments in a statement function reference must agree in order, number and type with the 
corresponding dummy arguments. Actual arguments in a reference may be any expression of the same 
type as the corresponding dummy argument. 



The statement function is: 
ROOT(A.B.C)=(-B+SQRT(B**2-4 *A*C))/(2. *A) 

This statement function might be referenced by: 
VAL = ROOT(D(6), 122.6, ABS(X-Y) ) + Z**3 



In the example, D(6) replaces A, 122. 6 replaces B, the absolute value of A-Y replaces C, and the 
expression: 

(-122. 6+SQRT(122. 6**2-4. *D(6)* ABS(X-Y) ) )/(2. *D(6) ) 

is evaluated and returned to the assignment statement. Z**3 is added to the returned value, and the 
total is assigned to location VAL. 

Function Subprograms 

When a programmer needs a function that cannot be expressed as a single statement (statement function), 
he writes a function subprogram. A function subprogram is external (separately compiled). A function 
subprogram is referenced in the same manner as any function, returning a single value for the function 
to the referencing point. 

A function subprogram is defined by the FUNCTION statement that begins the function subprogram. The 
FUNCTION statement has the format: 



type FUNCTION name_(a]^, £2, . . . , a^) 
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FUNCTIONS (Continued) 

Function Subprograms (Continued) 

where: type is INTEGER, REAL, COMPLEX, DOUBLE PRECISION, LOGICAL, DOUBLE 
PRECISION COMPLEX, or blank. 

name is the name of the function subprogram. 

each £ is a dummy argument to be replaced by an actual argument when the function sub- 
program is referenced. The argument list may not be blank. 

The function returns a value that is of the data type in the FUNCTION statanont. If no data t\'pc is 
givrm, the function returns an INTEGER or REAL value depending upon the Iieginning letler of (he 
function name (IJKLMN convention). 

Ecicli uuniuiy axguuieuL of a luucLiua subprogram may be a variable name, an array name, or an 
external suliprogram name (function or subroutine). 

The name of the function subpi-ogram must appear on the lefthand side of an assignment statement al 
least once in the function subprogram. DGC FORTRAN IV subprogram names must be unique within 
the first 5 characters. See Appendix B for specific names reserved for other purposes. 

A value is returned for a function when a RETURN statement in the function subprogram is executed. 
The function subprogram must contain at least one RETURN statement 

Function subprograms, like subroutines, can execute abnormal returns, as dcscrilx'd in the sedion 
"Abnormal Returns", page 9-9. 

Except for the FUNCTION statement itself, the name of the function subprogram cannot appear in 
any non-executable statement in the function subprogram. 

Dummy argument names cannot appear in DATA, COMMON, or EQUIVALENCE statements in the 
function subprogram. 

Through assignment of values to its arguments, the function subprogram can effectively return more 
than one value to the referencing program unit. 

The function subprogram cannot contain statements that define other program units, e. e. , it cannot 
contain another FUNCTION statement, a BLOCK DATA statement or a SUBROUTINE statement. 

An example of a function subprogram is REAL function SWITCH: 



FUNCTION SWITCH (X) 

IF(X.LE.0.)GOTO5 

IF(X. LT. l.)TOTO 10 
20 SWITCH = I. ;FIRST ASSIGNMENT TO SWITCH 

RETURN 
10 SWITCH = X 

RETURN 
5 RETURN 

END 
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FUNCTIONS (Continued) 

Arguments of Function Subprograms* 

When a function subprogram* is referenced, dummy argument names of a given structure are replaced 
by actual argument names of a similar structure as shown below: 

1. Dummy Argument : Variable Name 

Actual Arguments : Variable Name 

Array Element Name 
Any Expression 

When the actual argument is an expression, its value is passed. 

2. Dummy Argument Array Name 

Actual Arguments : Array Name 

Array Element Name 

When an array name is passed: 

dummy length g actual array length 
When an array element name is passed: 

dummy length ^ actual array length + 1 - the actual array <s subscript. 

3. Dummy Argument: Name that can be used as a function call. 
Actual Argument: External Function Name 

The dummy argument cannot be defined or redefined in the function subprogram. * 

4. Dumniv -Vrgimient: Name that can be used as a sulDroutine name in a CALL statement. 
Acrjal Argument: Externa! Subroutine Name 

The dummy argument cannot be defined or redefined in the function subprogram. * 

An external function or suliroutine name that is used as an actual argument in the referencing program 
unit must appear in an EXTERNAL statement in the referencing program unit. 

If a function reference causes association of two dummy arguments in the function subprogram, neither 
dummy argument can be defined in the function subprogram. 

FORTRAN Library Functions 

The FORTRAN library functions are those functions supplied with the FORTRAN compiler. Library 
functions are referenced in the same way as other functions: 



X = ABS (SIN(X) ) ^function references 



A list of the library functions is given on the following page. All angular quantities are in radians. 



*The same correspondence of dammy to actual arguments holds for subroutine subprograms when the words 
"subroutine subprogram" are substituted for the words "function subprogram" as indicated by the asterisks. 
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Number of 


Type of 


1 FunctioiiH 




Name 


Function 


Definition 


Arguments 


Argument 


Function 


: Used For 




ATAN 


arctan (arg) 


Arctangent 


1 


Real 


Real 






ATAN2 


(quadrants 1 and 4) 




2 


Real 


Real 






DATAN 






1 


Double 


Double 






DATAN2 
DATN2* 


arctan(arg^/arg2) 
(all quadrants) 




2 

1 


Double 
Double 


Double 
Double 


- 




COS 


cos(arg) 


Trigonometric 


1 


Real 


Real 




DC OS 




Cosine 




Double 


Double 






CCOS 








Complex 


Complex 






DCCOS 








DP Complex 


DP Complex 


TrigoiiuiiiL-l 1 
■ Operations 


iC 
















SIN 


sin(arg) 


Trigonometric 


1 


Real 


Real 






nSTN 




Sinp 




Dniihlp 


nnnhlp 






CSIN 








Complex 


Complex 






DCSIN 








DP Complex 


DP Complex 


-- 




SINH 


sinh(arg) 


Hyperbolic 


1 


Real 


Real 








Sine 












TAN 


tan(arg) 


Trigonometric 


1 


Real 


Real 




DTAN 




Tangent 




Double 


Double 


-■ 




TANH 


tanh(arg) 


HyperboUc 


1 


Real 


Real 




DTANH 




Tangent 




Double 


Double 






ABS 


l^g| 


Absolute 


1 


Real 


Real 






lABS 




Value 




Integer 


Integer 






DABS 








Double 


Double 






AIMAG 


y where: 


Obtain imagi- 


1 


Complex 


Real 




DAIMAG 


arg = X + yi 


nary part of 
complex argu- 
ment 




DP Complex 


Double 


; Arithniclic 
■ and 
: Conversion 


















AINT 


Sign of arg times 


Truncation 


1 


Real 


Real 


■ Operations 




INT 


largest integer 






Real 


Integer 






IDINT 


^ |?£g| 






Double 


Integer 






ALOG 


lege (arg) 


Natural 


1 


Real 


Real 


' 




DLOG 




Logarithm 




Double 


Double 






CLOG 








Complex 


Complex 






DC LOG 








DP Complex 


DP Complex 







*DATN2 is used with the 8K FORTRAN compiler in place of DATAN, because DATAN and DATAN2 are 
identical in their first five characters. DATAN and DATAN2 can be used with the 12K compiler. 
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Number of 


Type 


of 


Function 


Name 


Function 


Definition 


Arguments 


Argument 


Function 


Used For 


ALOGjQ 


logio(arg) 


Common 


1 


Real 


Real 




DLOGio 




Logarithm 




Double 


Double 




AMAXO 


max(argi,arg2,...) 


Choosing 


>2 


Integer 


Real 


AMAXl 




Largest 




Real 


Real 




MAXO 




Value 




Integer 


Integer 




MAXl 








Real 


Integer 




DMAXl 








Double 


Double 




AMINO 


min(argi,arg9,...) 


Choosing 


5-2 


Integer 


Real 


AMINl 




Smallest 




Real 


Real 




MINO 




Value 




Integer 


Integer 




MINI 








Real 


Integer 




DMINl 








Double 


Double 




AMOD * 


arg,(mod argj) 


Remaindering* 


2 


Real 


Real 


MOD 








Integer 


Integer 




DMOD 








Double 


Double 


Arithmetic 
and 














CABS 


x2 + y2 where: 


Modulus 


1 


Complex 


Real 


Conversion 


DCABS 


arg = X + yl 






DP Complex 


Double 


Operations 


CMPLX 


complex=arg)+iarg9 


Express 2 Reat 


2 


Real 


Complex 


DCMPLX 




Arguments in 
Complex Form 




Double 


DP Complex 




CONJG 


For: arg = x + yi 


Obtain Conju- 


1 


Complex 


Complex 


DCONJG 


conj = X - yi 


gate of Complex 




DP Complex 


DP Complex 




• 




Argument 










DBLE 


Double = (arg, 0) 


Express Single 


1 


Real 


Double 






Precision Argu- 
ment in Double 
Precision Form 










DIM 


arg, -min(arg,,arg,) 


Positive 


2 


Real 


Real 


IDIM 

■» 




Difference 




Integer 


Integer 




EXP 


parg 


Exponential 


1 


Real 


Real 


DEXP 








Double 


Double 




CEXP 








Complex 


Complex 




DCEXP 








DP Complex 


DP Complex 





/'AMODA 
*The functions MOD > (arg, , arg ^) is defined as: arg , - [ argj / arg2 ] arg, 
^DMOD-^ 

where: [ argj / arg 2 ] is the truncated value of that quotient. 
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Name 


Function 


Definition 


Number of 
Arguments 


Type 
Argument 


of 
Function 


Function 
Used for ' 




FLOAT 
DFLOAT 


Float 


Convert from Integer 
to Real 


1 


Integer 
Integer 


Real 
Double 


Arithmetic 

and 
Conversion 
Operations 




IFIX 


Fix 


Convert from Real to 
Integer by Truncation 


1 


Real 


Integer 




REAL 


X where: 

arg = X + yi 


Obtain Real Part of 
Complex Argument 


1 


Complex 
DP Complex 


Real 
Double 




SIGN 
ISIGN 
DSIGN 


sign of arg,*arg, 


Transfer of Sign 


2 


Real 

Integer 

Double 


Real 

Integer 

Double 




SNGL 


arg 


Obtain Most Signifi- 
cant Part of Double 
Precision Argument 


1 


Do'ublc 


Real 




SQRT 
DSQRT 
CSQRT 
DGSQRT 


(arg)^/^ 


Square Root 


1 


Real 
Double 
Complex 
DP Complex 


Real 
Double 
Complex 
DP Complex 




L4.ND * 


arg J arg2 


16 -bit ANDing 


2 


Integer 


Integer 


Bit/Word 
Manipulatlor 
and Testing 




lOR * 


argj arg2 


16 -bit ORing 


2 


Integer 


Integer 




NOT 


arg 


Logical Complement 


1 


Integer 


Integer 




lEOR 


arg, arg^ 


16 -bit Exdusive OR 


2 


Integer 


Integer 




ISHFT 


argj.arg^ 


Shift arg by the num- 
ber of bits given in 
arg,, where: 

arg2 < right shift 
arg2 = no shift 
arg2 > left shift 


2 


Integer 


Integer 




ITEST 
BTEST 


arg^, arg^ 


Test a Bit within the 
Word Given by arg^. 
The Bit Tested Is 
15-arg2. The Result 
Returned Is: 

if tested bit = 
-1 if tested bit = 1 


2 


Integer 


Logical 
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SUBROUTINES 

Subroutines, also called subroutine subprograms, are external (separately compiled). They return 
values to the calling program unit only through actual-dummy argument correspondence, and they 
return to the calling program unit at the statement following the subroutine call unless they execute 
a RETURN via a dummy argument. 

A subroutine is defined by the SUBROUTINE statement that begins the subroutine and has the format: 



SUBROUTINE name (a^a^, • • • > a^^) 



where: name is the name of the subroutine. 

each a is a dummy argument to be replaced by an actual argument when the subroutine 
is referenced. The argument list may be blank. 

Each dummy argument of a subroutine may be a variable name, array name, or an external subprogram 
name (function or subroutine). Dummy argument names cannot appear in COMMON, EQUIVALENCE, or 
DATA statements in the subroutine subprogram. 

The correspondence between dummy argument nam.es of subroutines and actual arguments passed 
to the subroutine when it is referenced is the same as that given for function subprograms (page 9-4), 

Within the subroutine, name may only appear in the SUBROUTINE statement immediately following 
the word SUBROUTINE. Subprogram names must be uniquely distinguishable by their first five 
characters. See Appendix B for names reserved for other purposes. 

Through assignment of values to its arguments, the subroutine can effectively return values to the 
referencing program unit. 

The subroutine must contain at least one RETURN statement. Return is made to the referencing 
program unit when a RETURN statement is executed. 

The subroutine cannot contain statements that define other program units, i. e. , it cannot contain 
another SUBROUTINE statement, a BLOCK DATA statement, or a FUNCTION statement. 

An example of a subroutine subprogram is: 



SUBROUTINE REV(ARRAY, II, 12) 

DIMENSION ARRAY (100) 

112 = 11+12 

MID = 112/2 

DO 50 I = U, MID 

J = 112 -1 
C USE TEMPORARY TO REVERSE 

C ELEMENTS OF ARRAY 

TEMP = A(I) 

A(I) = A(J) 

A0) = TEMP 
50 CONTINUE 

RETURN 

END 
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SUBROUTINES (Continued) 

A subroutine subprogram is referenced by a CALL statement. (See Chapter 5.) If the 
statement contains dummy arguments, the CALL statement must contain actual arguments that 
replace the dummy arguments. 

When the subroutine has been executed, normal return is made to the statement in the calling program 
unit immediately following the CALL statement. For example, subroutine subprogram REV might be 
called from another program unit as shown. 



DIMENSION A(IOO) 



CALL REV (A, Kl, K2) 



ABNORMAL RETURNS 

Normally, return from a subroutine is to the statement immediately following the CALL statement, 
and return from a function is to the point of function reference. 

It is possible to return to some other statement in the calling program. To do so, the called function 
or subroutine must contain a dummy integer argument that is used as a variable in a RETURN statement. 



SUBROUTINE SUB (DUM, I, Rl, Q, K) 
INTEGER Q 



R RTT IR M n 



When the subroutine SUB is referenced, the calling program passes a statement label to replace the 
dummy integer argument. The statement label must be preceded by a dollar sign ($)• 



CALL SUB (A, Kl, K2, $25, K3) 



25 



If an abnormal RETURN statement in SUB is executed referencing the fourth dummy argument, return 
will be made to the statement labeled 25 in the calling program. 
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ABNORMAL RETURNS (Continued) 

Abnormal returns from functions are made in the same way. Rather than returning to the point of the 
reference, the return will be made to a statement, whose label is passed as an argument replacing 
the integer variable in the RETURN statement of the function being referenced. 

DGC FORTRAN IV UBRARY 



Certain functions and subroutines supplied v/ith the FORTRAN IV Ubrar>' are described in brief 
in this manual. Functions are described on pages 9-5 to 9-7; Chapter 6 contains non-real time 
I/O calls; and PART II describes calls that provide the real time interface to RDOS, In addition 
the next section of this chapter describes three bit manipulation routines. 

However, the functions and subroutines described in this manual are limited to those that can most 
commonly be used by programmers as well as by the system. For a full description of the FORTRAN IV 
library, see the FORTRAN IV Run Time Library User's Manual, 093-000068. 

BIT/WORD MANIPULATION 

Calls to run time routines permit bits of an integer variable to be accessed to change the setting or 
for testing. 

Clear a Bit (ICLR, BCLR) 

A single bit in a word can be set to zero by executing a call to ICLR or to BCLR. The format of the 
call is: 



CALL ICLR (word, position) 



CALL BCLR (word, position) 



where: word is an integer variable, one of whose bits is to be cleared. 

position is an integer constant or variable whose value specifies the bit position in the 
word to be set to zero: 



Least significant bit 



15 Most significant bit 



Example: 



15 



CALL ICLR (IX, 10) BIT 10 of IX will be cleared. 



Set a Bit (ISET, BSET) 

A single bit in a word can be set to one by executing a call to ISET or to BSET. The format of the 
call is 



CALL ISET (word, position) 



CALL BSET (word, position) 
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BIT/WORD MANIPULATION (Continued) 

Set a Bit (ISET, BSET) (Continued) 

where: word is an integer variable, one of whose bits is to be set to one. 

position is an integer variable or constant whose value specifies the bit position in the 
word to be set to one: 



Least significant bit 

15 Most significant bit 
Example: 



15 



CALL ISET (MON, 0) 



BIT of MON will be set 



Test a Bit (ITEST, BTEST) 

A single bit in a word can be tested, using the integer function ITEST or BTEST. ITEST and BTEST 
are referenced by the following formats: 



ITEST (word, position) 



BTEST (word, position) 



where: word is a logical variable, one of whose bits is to Ix: tested. 

position is an integer constant or variable whose value specifies the bit position to be 
tested. The bit tested is 15 - po sition . 



The logical value returned by ITEST (BTEST)^ jp a -1 (true) if the tested bit is one and zero if the 
tested bit is zero (false). 

Example; 



IF (ITEST (I, J ) ) GO TO 10 
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BIT/WORD MANIPULATION (Continued) 

Shift a Word (ISHFT) 

A word can be shifted a number of bits left or right using the integer function ISHFT. ISHFT is 
referenced by the following format: 



ISHFT (word, bits ) 



where: word is an integer variable that is to be shifted. 

bits is an integer constant or variable whose value specifies the number of bit 
postions to be shifted and: 

a negative value represents a right shift. 

a positive value represents a left shift. 

Example: 



ISHFT (J, -5 ) Shift contents of J 5 bits to the right. 
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A (assembly source code line) 1-2 
A (in format conversion)) 6-10, 6-12 
abnormal retxirn 5-4 
ABS library function 9-5 
ACCEPT statement 

description of 2-5 
strings in 2-5 
input/output of 6-20 
addition 3-1, 3-2 
adjustable dimensions 2-6, 7-1 
AIM AG library function 9-5 
AINT library function 9-5 
A LOG library function 9-5 
ALOGIO library function 9-6 
AMAXO library function 9-6 
AMAXl library function 9-6 
AMINO library function 9-6 
AMINl library function 9-6 
AMOD library function 9-6 
angle brackets 2-6 
.AND. 3-4 
apostrophes 2-5 
argument 

correspondence to dummy 9-4 

external subprogram 7-5 

of function Chapter 9 

of subroutine Chapter 9 
arithmetic data 

assignment 4-1 

constant 2-1 

conversion Chapters 2, 3, 4 

expression 3-1 

IF statement 5-3 

I/O conversion Chapter 6 

operators 3-1 

mixed data types 3-2 

representation Chapter 2, Append. E 

storage Chapter 2, Appendix E 

variable 2-1 
arithmetic statement function 9-1 
arrays 

assigning values to 2-8 

adjustable dimensions of 2-6, 7-1 



arrays (Continued) 

dimensions 2-6, 7-1 

boundless 7-2 

element of 2-6 

equivalencing Chapter 7 

format specification in Chapter 6 

input/output of 6-1, 6-2 

not declared in COMMON 1-1 

variable size of 7-2 

ASdll characters 1-1 

assembly source code 1-2 

ASSIGN statement 5-2 

assigned GOTO statement 5-2 

assignment 

statements Chapter 4 
definition of 4-1 
illegal versions of 4-1 
rules for using 4-1, 4-2 
of arithmetic data 4-1 
of values to arrays 2-8 
of logical data 4-1 

asterisk 1-3, 3-1, 3-2, 3-4, 6-8 

ATAN library function 9-5 

ATAN2 library function 9-5 

basic field descriptor Chapter 6 

BCLR routine 9-10, 9-11 

binary I/O 6-1, 6-19 

bit manipulation 

clear bit and set bit 9-10 

logical operations 3-5, 9-7 
test bit 9-7, 9-11 

blank 

common 7-4 

descriptor Chapter 6 

in input conversion Chapter 6 

as space 

in GOTO 5-1 

in string constant 2-5 

invariable 2-1 

as delimiter 1-3 
block data 

statement 8-2 
subprogram 1-1, 8-2 
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boundless arrays 7-2 
BSET 9-10, 9-11 
BTEST routine 9-7. 9-11 

C (comment line) 1-1 
CABS library function 9-6 
CALL 

strings in 2-5 

statement 5-3 

to function Chapter 9 

to run time routines (see PART II) 

to subroutine Chapters 5, 9 
carriage 

control tabulation 1-1, 6-10, 6-11 

use of slashes in 6-7, 6-14 

vertical spacing codes 6-15 

Z suppressor of 6-10, 6-16 

return 1-2, 2-4, 6-10 
CCOS library function 9-5 
CEXP library function 9-6 
CHANTASK statement 1-2 
character positions 1-1, 1-2 
character set 1-3, 1-1 
character string 

constant 2-4 

data initialization to 8-1 

I/O conversion Chapter 6 

storage 2-6, App. E 
CHSAV routine 6-24 
CHRST routine 6-24 
CLOG library function 9-5 
CMPLX library function 9-6 
Comma 6-7 
comment line 

following semicolon 1-2 

indicated by C 1-1 
common 

blank 7-4 

effect on reentrant program 1-1 

effect when equivalencing Chap. 7 

extended 7-6 

labeled 7-4 

statement 1-2, 2-6, 7-3 

storage 1-1 



COMPILER DOUBLE PRECISION 1-2, 7-3 
COMPILER NOSTACK 1-2, 7-7 
COMPLEX statement 1-2, 2-3 ^ 
complex constant 2-2 
complex 

data 2-4 

in unformatted I/O 6-4 
computed GOTO statement 5-1 
CONJG function 9-6 
conjunction (logical) 3-4 
constant 

complex 2-2 

definition 2-1 

double precision 2-3 

double precision complex 2-4 

HoUerity or string 1-3, 2-5 

integer 2-3, 2-1 

logical 2-2, 2-5 

real 2-3 

repetition 6-6, 6-13 
continuation lines 1-2 
CONTINUE statement 5-4 
control statements 

arithmetic IF 5-3 

assigned GOTO 5-2 

ASSIGN statement 5-2 

CALL statement 5-3 

computed GOTO 5-1 

CONTINUE statement 5-4 

definition 5-1 

DO statement 5-5 

logical IF 5-3 

PAUSE statement 5-5 

RETURN statement 5-4 

STOP statement 5-5 

unconditional GOTO 5-1 
conversion of data Chapters 3, 4 
conversion, I/O Chapter 6 
COS library function 9-5 
CSIN library function 9-5 
CSQRT library function 9-7 



D (double precision) 2-3 
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D in format conversion 6-7 f 
DABS library function 9-5 
DAIMAG library function 9-5 
data 

alphabetic 6-1 ff 

character string 2-4 

complex 2-4 

conversion Chapters 3,4 

double precision 2-3 

double precision complex 2-4 

formatting of Chapter 6 

Hollerith 2-4 

initialization 8-1 f 

integer 2-1 

octal 2-2, 2-6 

precision of Chapters 2, 3, 4 

real 2-2 

statement 

description 1-2, 2-7, 8-1 
strings in 2-5 
-type 

statements Chapter 7 
specification of 7-3 ff 
description of 7-3 ff 
evaluating mixed 3-2 
of parameters 2-1 

typing of 2-1, 7-1 
DA TAN library function 9-5 
DATAN 2 library function 9-5 
DATN2 library function 9-5 
DBLE library function 9-6 
DCABS library function 9-6 
DCCOS library function 9-5 
DCEXP library function 9-6 
DCLOG library function 9-5 
DCMPLX library function 9-6 
DCONJG library function 9-6 
DCOS library fimction 9-5 
DCSIN library function 9-5 
DCSQRT library function 9-7 



declaration statements 
COMMON 1-2 
COMPLEX 1-2 
DIMENSION 1-2 
DOUBLE PRECISION 1-2 

1~1/^T TTTT* T T-IX Tj"-*"!— i f r\ 

EXTERNAL 1-2 

INTEGER 1-2 

LOGICAL 1-2 

REAL T-2 
define 

initial values for variables 8-1 

initial values for array elements 8-1 
descriptor, field Chapter 6 
DEXP library function 9-6 
DFLOAT library function 9-7 
diagnostics Appendix B 
dimension 

adjustable 2-6, 7-1 

of an array 2-6, 7-1 

statement 1-2, 2-6 
DIM library function 9-6 
disjunction (logical) 3-4 
division 3-1, 3-2, 3-3 
DLOG library function 9-5 
DLOGIO library function 9-6 
DMAXl library function 9-6 
DMINI library function 9-6 
DMOD library function 9-6 
DO 

-implied list .6-1 

statement 5-5 
nesting of 5-6 
restrictions of 5-6 
extended range of 5-7 
double precision 

constant 2-3 

data 2 -4 

in unformatted I/O 6-4 

output conversion 6-8 

statement 1-2, 2-3 
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DOUBLE PRECISION COMPLEX 
statement (data) 2-4 
in unformatted I/O 6-4 
DREAL library function 9-7 
DSIGN library function 9-7 
DSIN library function 9-5 
DSQRT library function 9-7 
DTAN library function 9-5 
dummy argument Chapter 9 



E format conversion 6-7 
E (real data) 2-3 
element of an array 2-6 
end 

of line 1-1 

of program 1-1 

of subprogram 5-2 

of record indicators 6-5 
END line 1-1 
END FILE statement 6-24 

equals sign 1-3 

EQUIVALENCE statement 1-2,2-7,7-5 

equivalencing of arrarys Chapter 7 

error messages Appendix B 

evaluating 

expressions Chapter 3 

mixed data types 3-2 
exclamation point Chapter 6 
executable statements 1-2 
execution 

of program Appendix D 

resume after PAUSE 5-5 
execution - time formatting Chapter 6 
EXP library function 9-6 
explicit data typing 7-1 



expression 

arithmetic 3-1 

definition 3-1 

evaluation Chapter 3 

in non- executable statement 2=7 

in executable statement 2-7 

logical 3-4 

mixed mode 3-2 

operators for 3-1 ff 

relational 3-4 
extended common 7-6 
extended DO range 5-7 
extending core 1-1 
EXTERNAL statement 1-2, 7-6 
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F format conversion 
factor, scale 6-17 
.FALSE. 2-5, 3-4 
field descriptors 6-6 ff 
field separators 6-6 ff 
filename 6-24 
fixed memory locations 
fixed-point notation 2-2 
FLOAT library function 



7-7 
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floating-point notation 2-2 
forcing values 7-3 
format 

I/O Chapter 6 
strings in 2-5 
strings constant 2-6 
statement 1-2, 6-6 
specification 

purpose of 6-6 
during run time 6-18 
formfeed 1-2, 6-15 
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FORTRAN 

assembler interface Appendix 
character set 1-3, 1-1 
compilation Appendix D 
execution Appendix D 

t//-\ /— 11 ^.. .. /I 

i/u (^iiapier u 

library functions 9-4 

operators Chapter 3 

programs 1-1 

program units 1-1 

statements 1-2 
FSEEK routine 6-24 
full -word logical operations 3-3 
function 

subprogram 1-1, 1-2, Chapter 9 

statement 1-2, 9-2 

names 9-1 



G format conversion 6-7 

.GE. 3-2, 3-3 

GOTO 
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CHAPTER 1 
INTRODUCTORY CONCEPTS OF THE OPERATING SYSTEMS 



FORTRAN IV can be used in conjunction with DGC 's three operating systems, namely, the Real Time 
Disk Operating System, the Real Time Operating System, and the Stand-alone Operating System. 
FORTRAN IV can also be executed in stand-alone mode (without the use of an operating system). 

The Real Time Disk Operating System (RDOS) is a disk-oriented, modular, multitasking system. It 
is possible to segment FORTRAN IV programs under RDOS into overlays which are stored on disk and 
brought into a fixed area of core as needed at execution time. Any FORTRAN IV program under RDOS 
can suspend its own execution and either invoke another distinct program (called program chaining) 
or call for a new section of itself (called program swapping). 

Two programs may be executed concurrently under RDOS, a foreground and a background program. 
The two programs may have equal priority or the foreground program may have the higher priority 
of the two. Foreground and background programs are hardware protected from e^'-'^ other and from 
the operating system when the system is a NOVA* 840 computer with a Memory Management and 
Protection Unit (MMPU). This hardware protection enables a debugged program to be run in the 
foregroimd, while a lower priority program is constructed and debugged in the background. 

The other DGC operating systems (SOS and RTOS) provide the user with compatible subsets of RDOS. 
The Stand-alone Operating System provides a single program runtime facility in a non-disk environment, 
while RTOS provides a multitasking, memory-only real time system. All file structures, task concepts, 
and other features described for RDOS FORTRAN IV also apply to an RTOS system unless otherwise 
specified in this manual. 

DISCUSSION OF TERMS 



Multitasking 

Multitasking provides an advanced method of having multiple execution paths through a user program. 
Assume a program A to be operating perhaps putting together statistical information. Somewhere along 
the line it determines that it needs another routine (or task) to be called in to assist it in performing some 
calculation. The second task may then be activated, while the first task may or may not cease its 
operation. In fact, both tasks could be operating concurrently, each contending for the system's 
resources (CPU time, I/O time, core storage, etc.). 

Multitasking allows a user to coordinate many independent tasks by having each task share subroutines, 
the access of data buffers, and disk files. Programmable control of tasks is made possible by calls 
which activate, make ready, and suspend a task, and those that examine the status of tasks on a group 
or individual basis. Other calls to the task monitor allow independently executing tasks to be 
synchronized or to exchange information. 

System resources in the form of CPU time and I/O peripherals are allocated to each task under a user- 
specified task priority structure. The user can also define task subprograms in assembly language 
for separate incorporation as task units. 

'- NOVA, SUPERNOVA, and NOVADISC are registered trademarks of Data General Corporation. 
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DISCUSSION OF TERMS (Continued) 
Swappins and Chaining 

An executing program may invoke anodier program that exists as a save file on disk. The invoking 
program is swapped out to disk and the invoked program executes. When the invoked program ter- 
minates execution, the calling program is restored to core. Up to five levels of program swaps 
are permitted. 

hi chaining, the invoking program is not saved. It simply executes until it mvokes another program 
that exists as a save fUe on disk. There is no limit to the number of programs that may be chained. 

Overlays 

Another method of overwriting resident core Images is the overlay facility. Unlike program swap- 
ping or chaining, the overlay facility associates disk files that are the user overlays with a root 
program that remains core resident. Overlays overwrite each other but do not overwrite the root 
program. Both the overlay facility and swapping and chaining are described in detail in Chapter 5. 

System Directory 

Each partition or subdirectory has a directory to the files of the partition or subdirectory; the 
directory is named SYS. DR. The information withm every SYS.DR includes file names, the length 
in bytes of the files, and the file's attributes and characteristics. 

The structure of SYS. DR for bodi system file directories and subdirectories is identical. Iliat is, 
SYS. DR is a randomly organized fUe, and the first word in each block of the file is the number of 
files that are listed ki this block of SYS.DR. Following diis word is a series of 22 octal word 
entries, called user file descriptions or UFDs, which describe each file. The contents of the UFD 
differ somewhat for link entries; links are described in Chapter 3. 

File Structures 
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iriere are tnree types or rue organization; 

of 256-word blocks. The organization of these files is described in detail m the RDOS Manual, 093-000075, 

and is only briefly discussed here. 

Each block of a sequentially organized fUe has a 255-word data area followed by a word containing a 
pointer to the next block. The pointer is to die logical block address assigned by the system and derived 
from the physical sector /track address of the disk. Logical addresses need not be accessed sequentially; 
a sequentially organized file might have the last word of block 7 pointing to block 14 which in turn points 
to block 4, etc. Sequential I/O transfers are buffered, i.e. , only whole blocks are transferred and each 
one is read into the buffer first. 

Randomly organized files utilize all 256-words of the block for data. The blocks are accessed by a 
file index which is created when the random file is created. Tlie fUe index is a sequentially organ- 
ized fUe of pointers to the data blocks of the random file. Each random block is assigned a sequential 
positive integer by its position within the fUe. The first block is block 0. hi processing randomly 
organized files, two disk accesses are generally all that is required for reading and writing of each 
block: one to access the file index and one for the block of data itself. If the index is main-memory 
resident (having previously been read into a system buffer), only one access is necessary. 

Contiguously organized files use all 256 words of a block for data. These are files whose blocks may be ac- 
cessed randomly but without need for a random file index. Contiguous files are composed of a fixed number 
of disk blocks, located at an unbroken series of disk block addresses. The files cannot be expanded nor 
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niSCUSSrON of terms (Continued) 
File Structures (Continued) 

reduced in size. Since the data blocks are at sequential logical block addresses, all that is needed 
to access a block within a contiguous file is the address of the first block (or the name of the file) 
and the relative block number within the file. 

All I/O operations which can be performed on randomly organized files can be performed on con- 
tiguously organized files, but the size of the contiguous file remains fixed. Contiguously organized 
files have the advantage of usually requiring less time for accessing blocks within a file, since 
there is no need to read a file index. 

Dual Programming 

Dual programming, also referred to as foreground/background programming, allows two programs 
to execute concurrently, sharing system resources. One of these concurrently operating programs 
resides in the foreground and the other resides in the background. Either the foreground program 
has a higher priority than the background program, or tlie foreground and background programs may 
have equal priority in competing for system resources. 

The division between the foreground and background programs may be either a software memory 
partition (created during the relocatable load process) or a hardware partition. The hardware 
partition exists when a Memory Management and Protection Unit (MMPU) is included with the Nova 
840 system. 

Mapping 

When Nova 840 systems include an MMPU, there are two modes for addressing memory. The modes 
are: absolute mode and user (mapped) mode. In absolute mode memory addresses are unmapped, 
with only the lower 31K of memory addressable. In user (mapped) mode, the background and the 
foreground programs can each be allotted up to 31 blocks of memory of 1024 (decimal) words each. 
Addresses are mapped; each user program is aware of its portion of address space only and therefore, 
cannot reference locations outside its own logical address space. 

User Status Table (UST) 

Each UST contains information describing each user program including the program's length, the 
number of tasks required, and the number of I/O channels required. Each program has an associated 
UST. 

FORTRAN IV ERROR FLAGS 

Many of the run time calls contain as part of their format an integer variable error that returns an 
error code. The possible error codes returned in the integer variable error are: 

Indeterminate error 

1 Call successfully completed 

2 System action in progress 

3 RDOS system error code + 3 

Emr code will be returned only as a result of a bug within the user program. Error code 1 
indicates that the specified ->peration was successfully completed, therefore encountering no error 
condition. Error code 2 indicates system activity in progress; this is actually only momentarily 
placed within error during the time it takes to complete the operation. Error codes 0, 1, or 3 and 
higher are the only codes returned at completion of a call. An error code of 3 or higher indicates 
one of the RDOS system error codes, e.g. , FORTRAN error 3 is RDOS error 0, FORTRAN error 4 
is RDOS error 1, etc. A list of all error codes can be found in Appendix A. 
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CHAPTER 2 
SYSTEM, DIRECTORY, AND DEVICE CONTROL 



DIRECTORIES, DISKS, AND DISK PARTITIONS 

A disk is a device (fixed or moving head) capable of storing information in the form of files. Total 
disk space (except the first six blocks which are reserved for HIPBOOT) is labeled the primary 
partition. 



prim.ary partition 



One or more portions of this primary partition may be designated as secondary partitions (created 
by a call to CPART). 











secondary 
partition 














secondary 
partition 









primary partition 



Secondary partitions are fixed areas of contiguous file space. Within a partition a user may be 
allocated a subdirectory (created by a call to CDIR). Subdirectories allow users to share a 
partition's file space on a variable basis. 

Each partition and subdirectory has a file directory called SYS. DR which contains the following 
types of information: 

SYS. DR for the primary partition contains information concerning each file contained 
within the primary partition, a list of each subdirectory associated with the primary 
partition, and a list of tlie names of each secondary partition. 

SYS. DR for each secondary partition contains Information concerning each file within 
that secondary partition, and a list of all subdirectories associated with that secondary 
partition. 

Each subdirectory within a partition has its own SYS. DR containing a list of all files of 
that subdirectory. 



DIRECTORIES, DISKS, AND DISK PARTIllONS (Continued) 



A bit allocation map (called MAP. DR) is contained within each partition. MAP. DR keeps a current 
record of which disk blocks are in use and which are free for data use within each partition. The 
primary partition's MAP. DR keeps a record of total disk file space except blocks through 5. These 
six blocks contain the disk bootstrap program which can never be destroyed since the system is 
unaware of its existence. Subdirectories use the parent partition's MAP.DR as they do not have one 
themselves. 

Since all directories (except the primary partition's directory) are listed in a parent directory, 
there is a hierarchy among directory specifiers. Primary partitions are at the highest level. Fol- 
lowing these are primary partition subdirectories and secondary partitions. Lxjwest of all are the 
secondary partition subdirectories. 



Level 
Level 1 
Level 2 



primary partition 
subdirectories ^secondary partition 



suMirecBsry 



subdirec 



;Co 



"secondary partition 



ryo 



subdirectory 



mbdi 



subdirectory 



To initialize a directory so that the files it contains can be referenced, the user must initialize all 
directories in a path from the closest higher level directory which has already been initialized. If 
necessary, the primary partition itself must first be initialized. Thus if in the above illustration a 
user wished to access files in subdirectory! and no directory in this file space has been initialized, 
the following directories must be initialized in the following order: primary partition, secondary 
partltionj, subdirectory^. 

A user can also access a file using links, as described in Chapter 3. In brief, a common application 
of a link entry is to permit the conservation of disk file space by allowing a single copy of a commonly 
used disk file to be linked to by users in the same directory or partition, or in other partitions. Link 
entries may point to other link entries, with a depth of resolution of up to 10 decimal. The entry which 
is finally linked to is called the resolution entry. 



Secondary Partition 
File Directory 







Secondary Partition 
File Directory 



Subdirectory 



LINK A 



LINK B 



LINKC 



Primary Partition 
File Directory 



Subdirectory 



ASM. SV 



ASM.SV 



^ 



LINK D 



F ORTRAN CALLS INTERFACING TO SYSTEM DIRECTORY COMMANDS 

FORTRAN calls to run time routines that interface to system directory commands are described in 



this section; they are: 

BOOT 

CDIR 

CPART 

DIR 

GDIR 

INIT 

MDIR 

RLSE 



perform a disk bootstrap 

create a subdirectory 

create a secondary partition 

change the current directory 

get the current default directory name 

initialize a directory or magnetic tape device 

get the name of the master device 

release a directory or magnetic tape device 






Disk files are accessed by file name. Under RDOS a disk file name may reside in one of tliree kinds of di- 
rectories: the primary partition's directory, the secondary partition's directory, or a subdirectory's 
directory. Tiic primary partition is a fixed or moving head disk device. Secondary partitions and 
subdirectories result from partitioning of disk space of a primary partition among users. 

Wlien RDOS is lyjolslj'a'jned I'usin" fflPBOOT or the BOOT coiiimand as described in the E1X)S Manual 
093-000075), a current directory is established. Files in tlie current directory may be accessed, by 
file name, e.g. , if the current directory is DPO, then FILEY in DPO is accessed by the name FILFY. 
However, files in directories other than the current directory can be accessed cn'y by prefixing the 
file name v^ith the specifiers of the directories in wMch they are foiuid, e.g. , 

DP1:PART2:F1X 

where: DPI is the primary partition and PART2 is the secondary partition containing the name of file 
FIX. 

The user can change the current directory with a c;-!! to DIR. Thus if the current directory is changed 
from DPO to PART2 of DPI, the user may access FIX without directory specifiers prefixed to tlie disk 
file name. A call to DIR also initiailzes the directory if it was not previously initialized. The call to 
DIR has the format: 

CALL DIR ( directoryname , error ) 

where: directoryname is the name of a file or device that is to become the new current directory. 

error is an integer variable which will return one of the error codes upon completion of 
the call. 

Examples of calls to DIR follow: 

CALL DIR ("DPO". lER) 
CALL DIR ('SPART', lER) 

Initialize a Directory (INIT) 

Before any file can be referenced, its directory must be initialized. Initialization opens a directory, 
specifying its name to the system for future access. Initialization can be either ftdl or partial 

Full initialization is used to introduce new disk packs or cartridges, magnetic tapes, or cassettes 
to the system; or it can be used to erase all existing files releasing their space from the partitions 
and subdirectories. Partial initialization is used to reintroduce to the system an entire imit with 
valuable file contents (i. e. , a primary partition) or to reintroduce a portion of the primai"y partition, 
namely, a secondary partition or subdirectory. 

Although more than one directory can be initialized at any one moment, there can be only one 
current default directory. The current default directory is the directory to which all file ref - 
erences are directed in the absence of additional directory specifier information. 

A directory can be initialized by executing a call to INIT. The call has the format: 

CALL INIT ( directoryname, type, error ) 

where: directoryname is the name of the directory file or the directory device to be initialized. 
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Initialize a Directory (INIT) (Continued) 

type i s an integer constant or variable whose value determines the type of initialization 
to be performed: 

-1 full initialization 
partial initialization 



error is an Integer variable which will return one of the error codes upon completion of 
the call. 

Partial initialization with overlays applies only to directory devices. Full initialization clears all 
previous files and information from the specified directory device. Subdirectories (non -device 
directories) are always partially initialized. See the RDOS User's Manual for further information 
on the initialization of directories. Examples of calls to INIT are: 

CALL INIT ("DPI". 0. lER) 
CALL INIT ("PARTITION", 0, lER) 
CALL INIT ("MTO". -1, lER) 

Release a Directory (RLSE ) 

The user can terminate access to files on a given directory by releasing the directory. (All files 
of a directory must be closed before the directory can be released. ) The call to RLSE has the 
format: 

CALL RLSE (directoryname, error) 

where: directoryname is the name of the directory or directory device to be released. 

error is an integer variable which will return one of the error codes upon completion of 
the call. 

Releasing a directory is the reverse of initializing it. After a directory is released, files in that 
directory can only be accessed after initializing (CALL INIT) the directory again. An example of 
a call to RLSE is: 

CALL RLSE "MTl", lER) 

In the case of magnetic tape or cassette units, the RLSE call will rewind these tapes. 

When the current directory is released, the master directory becomes the current directory untU a 
new directory is specified explicitly. 

Get the Current Default Directory /Device Name (GDIR) 

A call to the routine GDIR returns the name of the current default directory /device. The format of 
the call is: 

CALL GDIR ( array, error) 

where: array Is the name of the array which will return the name of the current default directory/ 
device, array must be large enough to accommodate 13 bytes. 

e rror is an integer variable which will return one of the error codes upon completion of 
the call. 



Get the Current Default Directory /Device Name (GDIR) (Continued) 

An example of a call to GDIR is: 

CALL GDIR (lAR, lER) 

Create a Subdirectory (CDIR) 

A subdirectory is a subset of the parent partition's file space. Unlike secondary partitions, 
subdirectories have no defined amount of file space. Instead, subdirectories take file space 
from the parent partition as required and release the space when it is no longer needed. A 
call to the routine CDIR causes an entry to be made in a primary or secondary partition's file 
directory for a subdirectory. The format of the call is: 

CALL CDIR ( name , error) 

where: name is the name of the subdirectory 

error is an integer variable which will return one of the error codes tqson completion 
of the call. 

An example of a call to CDIR is: 

CALL CDIR ("SDIR", lER) 



Create a Secondary Partition (CPART ) 

RDOS permits the parceling of disk file space among several users, on both a fixed and semi- 
variable basis. Fixed parcels of a contiguous disk file are called secondary partitions. 

A call to CPART creates a secondary partition and enters the name of the secondary partition in 
the primary partition's system directory. The primary partition can never be deleted; however, 
secondary partitions and subdirectories can be deleted. If a secondary partition is deleted, any 
subdirectories within that secondary partition are also deleted. The format of the call to CPART 
is: 

CALL CPART (name, size, error) 

where: name is the name to be assigned to the newly created secondary partition. 

size is an integer constant or variable indicating the number of contiguous blocks in 
the secondary partition. 

error is an integer variable which will return one of the error codes i^jon completion 
of the call. 

An example of a call to CPART is: 

CALL CPART ("SECP", 14. lER) 

Get the Logical Name of the Master Device (MDIR) 

Since inter -device bootstrapping is possible under RDOS, the current master device may not be 
the master device which was defined at the time of system generation. A call to the routine MDIR 
permits the user to determine the current name for the current master device. The format of the 
call is: 

CALL MDIR ( array, error) 
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Get the Logical Name of the Master Device (MDIR) (Continued) 

where: array Is the name of an array which will return the name of the master device. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

The master directory device is a primary or a secondary partition which becomes the current 
directory device after either a full system initialization or a disk bootstrap. The master device 
contains all of the system overlays. 

An example of a call to MDIR is: 

CALL MDIR (lAR, lER) 

Perform a Disk Bootstrap (BOOT) 

A call to the BOOT routine causes all open fUes in a currently executing system (both foreground 
and background)* to be closed, all directories to be released, and all system 1/0 to be reset. 
Control is then transferred to HIPBOOT which will bootstrap a new operating system. 

Bootstrapping may be performed with or without operator intervention. With operator intervention, 
the format of the call to BOOT is: 

CALL BOOT (partition, error ) 
where: partition is the name of the partition containing HIPBOOT. 

error is an integer variable that will return one of the error codes upon completion of the call. 
An example of a call with operator intervention is: 

CALL BOOT ("DPO", lER) 

which will load HIH300T from moving head disk unit 0. When loaded, HIPBOOT queries the user with 
FILENAME?, requesting the name of the system to be bootstrapped. A system file response is then given 
by the user as described in Appendix D. 

Without operator intervention, the following conditions must be fulfilled: (1) the operating system to 
be bootstrapped must be in a primary partition, (2) HIPBOOT must be in the same partition as the 
operating system, (3) the default operating system, SYS.SV, must be the system to be bootstrapped, 
(4) the user must have placed -1 in the CPU data switches (all switches in up position), and (5) the 
user must provide a save file named RESTART. SV that will perform whatever restart procedures are 
necessary to resume control of the real time process that was interrupted. When HIPBOOT bootstraps 
SYS.SV, the new system control will be chained to RESTART. SV. RESTART. SV must be in the same 
primary partition with SYS. SV. The time and date are not updated automatically and must be set by 
the user. 

With operator intervention, the format of the call to BOOT is the same as without operator Intervention, 
except that the partition specified must contain, HIPBOOT, SYS. SV and RESTART. SV. 

Get the Name of the Current System (GSYS) 

A call to the GSYS routine will return the name of the current operating system. The name returned 
will consist of the name plus its two-character extension terminated by a null terminator. The format 
of the call is: 

CALL GSYS (array, error) 



"'BOOT should not be issued from the background when the foreground is active. 
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uet the Name of the Current System (GSYSy Continued) 

where: array is the name of the array which will return the name of the current operating 
system. The array must be large enough to accommodate 15 octal oytes. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to GSYS is : 

CALL GSYS (lAR, lER) 

DEVICE CONTROL 

Disable Console Interrupts (GDIS) 

A call to the routine ODIS will permit the user to prevent console interrupts from occurring within 
his program environment. CTRL A, CTRL C, and CTRL F console interrupts may not occur 
unless reenabled by a call to OEBL. The format of the call is: 

CALL ODIS 

Enable Console Interrupts (OEBL) 

By default, when a system is first bootstrapped, console interrupts CTRL A, CTRL C, and CTRL F 
are enabled. If console interrupts have been disabled by a call to the routine ODIS, this call re- 
enables them within its program environment. The format of the call is: 

CALL OEBL 

Enable Spooling (SPEBL) 

i^imuxtancous peripheral operation on-line (spooling) has been implemented for the following devices: 

$LFr $LPT1 

$PLT $PLT1 

$ITP $PTP1 

$TTO $TT01 

$TTP $TTP1 

Spooling permits the queuing of data for one or more spoolable devices, making the CPU available for 
further processing while those devices receive the queued data. Spooling occurs only when no other 
system operations are ready. (System operations are given a higher priority than any user tasks. ) 
Spooling is possible in a single program environment only if two or more system stacks have been 
allocated at SYSGEN time; a dual program environment requires three or more system stacks. When 
an insufficient number of system stacks is allocated, all spooling commands become no-ops. Since 
spooling requires disk buffers, the system will disable spooling if no free disk space is available at 
the time spooling is attempted. The user may re -enable spooling at some later time when sufficient 
disk buffer space becomes available. 

A call to SPEBL will enable spooling on a device for which spooling had been previously disabled. The 
format of the call is: 

CALL SPEBL (devicename, error) 



DEVICE CONTROL (Continued) 

Enable Spooling (SPEBL) (Continued) 

where: devicename is the name of the device which the user wishes to be a spoolable device. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to SPEBL is: 

CALL SPEBL ("$LPT", lER) 

Disable Spooling (SFDIS) 

The call to SPDIS causes a spoolable device to discontinue spooling its output. If this call is issued 
while a device is spooling, execution of the call will be delayed until all data waiting to be spooled has 
been output. Data output to the device before the spooled data has been exhausted will itself be spooled 
to the output device, delaying execution of the call to SPDIS even longer. The format of the call is: 

CALL SPDIS ( devicename , error ) 

where: devicename is the name of the device which will no longer be a spoolable device. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to SPDIS is: 

CALL SPDIS ("$LPT", lER) 

Stop a Spool Operation (SPKIL) 

It is possible to stop a spool operation which is currently being performed, losing any data which 
was in the output queue. The format of the call to SPKIL is: 

CALL SPKIL ( devicename , error) 

where: devicename is the name of the device currently spooling the output which is to stop. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to SPKIL is: 

CALL SPKIL ("$LPT", lER) 

USER INTERRUPT SERVICING 

Users who wish to incorporate non-SYSGENed devices into real time FORTRAN programs must 
provide for the interrupt servicing to be done in assembly language, and for the creation of a three - 
word device control table (DCT) as explained in the RDOS User's Manual, 093-000075, 

Interrupt requests from special (non-SYSGENed) devices do not, for the most part, change the status 
of tasks in a FORTRAN multitask environment. Instead, such interrupts freeze the environment until 
servicing of the interrupt is completed and the multitask environment is unfrozen. Likewise, all 
other tasks will resume their former states when the environment becomes unfrozen, unless the user 
transmits a message to one of them by means of the transmit interrupt message command . IXMT. 
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USER INTERRUPT SERVICING (Continued) 

It is still necessary, however, to identify the interrupt device to the system by means of a FORTRAN 
call (FINTD) and it is possible to remove this device from the system by means of another FORTRAN 
call (FINRV). Interrupt servicing and the FORTRAN run time routines FINTD and FINRV may be used 
in both single and multitask environments. 

Identifying a User Interrupt Device (FINTD) 

The FINTD routine is used to identify to the system a device that is capable of generating interrupt 
requests but which was non-SYSGENed. The format of the call to FINTD is: 

CALL FINTD (device- code, dct) 

where: device-code is an integer variable or constant which is the code of the user device, 
where device -code is less than 63. 

dct is the name of a three-word device control table which may be a dimensioned 
array or an externally defined item. The dct entries arc defined in the RDOS 
Manual, 093-000075. Since the third entry is an address, the dct is usually 
handled in assembly language and defined as an external to the FORTRAN program 
rather than an array. 

Those devices that were not identified to the system at SYSGEN time must be made known to the 
system by the FINTD routine. FINTD causes an entry for the specified device code to be placed in 
the system interrupt vector table. 

At example of a call to FINTD is: 

CALL FINTD(62, IDDCT) 

where: IDDCT is defined in the program either as 

EXTERNAL IDDCT 



DIMENSION IDDCT (3) 

Note that if IDEXIIT is an array, it must ahvays be accessible in case of an interrupt, i. e. , it should 
be in labeled or unlabeled COMMON. 

There is a special usage of a call to FINTD to provide for automatic restart of user-defined devices and 
system devices to which power-up service is not extended after a power failure. Users having 
the power monitor/automatic restart hardware may make use of this call to provide power-up 
service in a user-written routine. The call has the format: 

CALL FINTD(63, name) 

where: name is the name of an externally declared user-written routine that provides the power- 
up interrupt servicing. 

63 is the device code of the CPU. 

An example of this special usage call to FINTD is: 

EXTERNAL IPRUP 
CALL FINTD(63, IPRUP) 
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USER INTERRUPT SERVICING (Continued) 

Remove a Service Interrupt Device (F INRV ) 

A previously added (FINTD) user interrupt device can be removed from the system interrupt vector 
table by a call to FINRV. The format of the call to FINRV is: 

CALL FINRV (device- code) 

where: device -code is an integer variable or constant which must be the device code of a previously 
identified user interrupt device. 

If an attempt is made to remove a SYSGENed device or if the device code argument is not within the 
legal range of user interrupt devices (Jess than 63), a fatal run time error occurs and execution 
is terminated. 

An example of a call to FINRV is: 

GALL FINRV (23) 
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FILE MAINTENANCE AND I/O CONTROL 



PILES, FILE NAMES 

A file is a collection of information or any device receiving or providing this information. All devices 
and disk files are accessible by file name. File names are byte strings of ASCII characters, packed 
left to right and terminated by a carriage return, form feed, space or null. Allowable ASCII char- 
acters are all upper case alphabetics, all numerics, the character dollar sign ($) and the character 
colon (:). 

A file name may consist of any number of characters, but only the first ten are considered significant 
(in addition to a two- character extension preceded by a period). Therefore, file names must be unique 
within their first ten characters. 



ABCDEFGHIJ 



is equivalent to 



ABCDEFGHIJKL 



I/O devices are given reserved device names; the list of these reserved names is given below, 
second devices/controllers are allowed, the name appears in the second column. 



Where 



Device 

incremental plotter 

teletypewriter punch 

card reader 

teletypewriter printer or display unit screen 

teletypewriter or display unit keyboard 

80 or 132 column line printer 

high-speed paper tape reader 

high-speed paper tape punch 

teletypewriter reader 

magnetic tape unit n (n = to 7) 

cassette unit n (n = to 7) 

DGC NOVADEC Tixed head unit 

moving head disk unit n 

input dual processor link 

output dual processor link 

multiprocessor communications adapter 

receiver 
multiprocessor communications adapter 

transmitter 
asynchronous data communications 

multiplexor 



Reserved Device Name 



$PLT 


$PLT1 


$TTP 


$TTP1 


$CDR 


$CDR1 


$TTO 


$TT01 


$TTI 


$TTI1 


$LPT 


$LPT1 


$PTR 


$PTR1 


$prp 


$PTPI 


$TTR 


$TTR1 


MTn 


MTln 


CTn 


CTln 


DKO 


DKl 


DPn (n=0-3) 


DPn (n=4 


$DPI 




$DPO 





MCAR 



•7) 



MCARl 



MCAT MCATl 

QTY:nn (nn = - 64 = line number) 



Under FORTRAN IV, when writing a file name, that file name must appear either within quotation 
marks (quotes), or within apostrophes (sometimes referred to as single quotes). For example: 

"PTP" 'CT0:6' "ABC" 'TEST" 'TEST.SV 

In the call formats appearing on following pages, the variables filename and devicename often appear. 
For example: 

CALL DFILW (filename , error ) 
CALL SPEBL (devicename, error) 



3-1 



FILES, FILE NAMES (Continued) 

File names and device names follow the RDOS naming conventions, i. e. , the name is a string of 
upper case ASCII alphabetic characters, numerals or the $ character. While the file name may be 
any length, only the first 10 are considered significant. A literal file or device name appearing in 
a FORTRAN IV call is enclosed in quotation marks or apostrophes or the file name may be passed 
as part of a string array. 

Referencing a File 

A file must be opened (i. e. , associated with a channel number) before it can be accessed. The 
channel number may have been pre-assigned (see list below) or may be user-assigned in a call to 
OPEN or FOPEN. Any of the 64 channels (0-63) can be associated with any file or device in a call to OPEN 
or FOPEN (even if the file/device already has a pre-assigned number). The pre-assigned channel/device 
number is temporarily suspended for the duration of the call to OPEN or FOPEN (e.g. , a call to CLOSE, 
FCLOS, or RESET will disassociate the channel/device number). 

Ihe pre-assigned channel numbers (with foreground associations listed within parentheses) are as 
follows : 



Device 


Channel 


$PLT 


6 


$TTP 


8 


$CDR 


9 


$TTO ($TT01) 


10 


$TTI ($TTI1) 


U 


$LPT 


12 


$PTR 


13 


$PTP 


14 


$TTR 


15 



Note that when issuing a TYPE statement, channel 10 is associated with either $TTO or $TT01 
(depending on whether executing in the background or the foreground) and when issuing an ACCEPT 
statement, channel 11 is associated with either $TTI or $TTI1. Both of these channel associations 
are made without issuing a call to the routine FOPEN or OPEN. 

Referencing a File on Magnetic Tape or Cassette Units 

Files are placed on tape in numeric order (0 - 99). A given file is referenced by the device name 
followed by a colon followed by the file number: 

CTn:m (CTln.TO) or MTn:!!! (MTln.in) 

where: n is the unit number ( to 7) 

m is the file number (0 - 99) 

CTn, CTln, MTn, and MTln are the default names of the particular devices. It is possible to 
change these device names by a call to EQUIV. 
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FILES, FILE NAMES (Continued) 
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Users can access any disk file, magnetic tape file, or cassette file by its name or by several different 
names (called aliases). By using link entries, users can access files outside their own directories. 
(For those readers not familiar with directories, turn to Chapter 2. ) A single copy of a commonly 
used disk file can then be linked to by several users in the same or in different partitions, resulting 
in a conservation of total disk file space. 

These link entries may in turn point to other link entries, and so on, up to a depth of ten (decimal). 
This depth is referred to as the depth of resolution, as the final file linked to is called a resolution 
file, or resolution file entry. 



LINK Ll 



secondary 
partition 



LINK L2 




secondary 
partition 



Link entries are created by a call to DLINK, and can be deleted by a call to DULNK. 

Whenever a link is to be resolved (i.e. , when the link is opened), the directory containing the resolution 
entry is initialized by the system if not already initialized. However, when the link entry to this file 
is created, the pertinent directory containing the resolution file need not be initialized , in fact, the 
resolution file need not even exist at this time. The link entry name must be unique within its own 
directory. 

Looking at the diagram above, four links exist to the resolution entry for the file ABC.SV. In order 
for any given link to be resolvable, all intermediate links must be resolvable. Thus, if LINK Ll is 
unlinked, LINK L is no longer resolvable. LINK L2 and LINK L3 will be resolvable at that point, 
however. 

Each resolution entry contains two kinds of attributes: 

resolution file attributes 
link access attributes 

Resolution file attributes apply to direct users of files. Link access attributes specify file attributes 
for users linking to these files. The attributes for the resolution entry are set when the resolution 
file is created and could have been subsequently changed by the user (by a call to FSTAT). Link 
access attributes are initially set to zero, but are subsequently changed by the user by a call to 
CHLAT). 

After a user has opened a file via a link entry, that file's attributes can be changed via a call to 
FSTAT. These attributes are In effect for only the length of time the file Is open via the link entry. 
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FILE ^MINTENANCE 

Assign a New Name to a Multiple File Device (EQUIV) 

A call to the routine EQUIV assigns a temporary name to a multiple file device, permitting unit 
independence during the execution ot a FORTRAN program. Thus magnetic tape file references 
might be made to temporary name MTAPE in a FORTRAN program, with assignment to a specified 
magnetic tape transport unit (e.g. , MT6) at run time by means of a call to EQUIV. No temporary 
name can be assigned to the master device . 

The call must be issued before the device is intitialized. Temporary names persist until either a 
disk bootstrap, release, or new temporary name assignment is made. The format of the call is: 

CALL EQUIV (namel, name 2, error) 

where: namel is the reserved or most recently assigned name of the multiple file device. 

name2 Is the temporary name of the multiple file device. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

The devices which can be equivalenced are: 

CTO - CT7, CTIO - CT17 
MTO - MT7, MTIO - MT17 
DPO - DP7 
DKO, DKl 

An example of a call to EQUIV is: 

CALL EQUIV ("MT6", "MTAPE", lER) 
Create an RDOS Disk File (CFILW) 
An RDOS disk file is created by executing a call to the CFILW routine. The call has the format: 

CALL CFILW ( filename , type t > size }, error ) 

where: filename is the name to be assigned to the new file. 

type is an Integer constant or variable whose value indicates the type of the file to be 
created, either: 

1 Sequentially organized file 

2 Randomly organized file 

3 Contiguously organized file 

size is an integer constant or variable giving the size ir rj:mber of blocks (256 words) of 
a contiguously organized file. This argument Is used only for type 3 (contiguous) files. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 
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FILE MAINTENANCE (Continued) 

Create an RDOS Disk File (CFILW) (Continued) 

The name filename must be unique with respect to all other file names in the system. The size of a 
contiguously organized file must be specified by size and cannot be changed after the file has been 
created. An example of a call to CFILW is: 

CALL CFILW ("YIO", 3, 20, lER) 

Delete an RDOS Disk File (DFILW) 

An RDOS disk file may be deleted by issuing a call to DFILW. The file must be closed before being 
deleted. The call has the format: 

CALL DFILW (filename , error ) 

where: filename is the name of the file to be deleted. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to DFILW is: 

CALL DFILW ("DATA12", lER) 

Delete a File (DELETE) 

Files may be deleted using the library routine DELETE (although DFILW is preferred to DELETE). 
The call takes the form: 

CALL DELETE ( filename ) 

where: filename is the name of the file to be deleted. 

The file specified will be deleted from the system directory if it exists and is not open. Only closed 
files can be deleted. If the file is currently open, an error message will be returned. An example 
of a call to DELETE is: 

CALL DELETE ("DATAFILE") 
Renaming a File (RENAM) 
A disk file may be renamed by executing a call to the RENAM routine. The format of the call is: 

CALL RENAM ( oldfilename , newfilename , error ) 
where: oldfilename is the file name that is to be changed. 

newfilename is the new name which is to be assigned to the file. 

error in an integer variable which will return one of the error codes upon completion of 
the call. 

An example of a call to RENAM is: 

CALL RENAM ('TEST", "SORT", lER) 
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FILE MAINTENANCE (Continued) 

Create a Link Entry (DLINK) 

A call to the routine DLINK creates a link entry in the current directory to a file in another 
directory. The file being linked to (i.e. , the resolution entry) may have the same name as that 
specified in the Unk entry, or the link and file names may differ (i.e. , the link entry name is an 
alias. ) No attributes are applied to a link except the link characteristic. All access rights to 
the linked file are determined by an inclusive OR of the resolution entry's attributes and the link 
access attributes of the resolution entry. (Link access rights of each resolution entry can be 
altered by means of a call to CHLAT. ) 

The format of the call to DLINK is: 

CALL DLINK ( namel , { name2, t error ) 

v/here: namel is the name of the link entry. 

name 2 Is the name of the alternate directory, alternate partition, or the alias name. 

name 2 is omitted if the resolution entry has the name namel in the current primary partition. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to DLINK is: 

CALL DLINK ("ABC. SV", "ABB. SV", lER) 

Delete Link Entries in the Current Directory (DULNK) 

This call deletes a link entry (created earlier by DLINK) in the current directory. This call does not 
delete other links of the same name in other directories. Care must be exercised to ensure that 
the Unk being deleted is not required by links further removed from the resolution entry, or else the 
deletion of this Knk will render these more remote links unresolvable. The format of the call is: 

CALL DULNK (name , error ) 

where: name is the name of the link entry to be deleted. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to DULNK is: 

CALL DULNK ("ABC.SV", lER) 

Get File Directory Information for a Given Channel (CHSTS) 

A call to the routine CHSTS returns a copy of the current directory status information for whatever 
file is currently opened on a specified channeL The format of the call is: 

CALL CHSTS (channel, array , error) 

where: channel is an integer constant or variable whose value specifies the number of the channel 
on which the device was opened. 

array is an integer array which will return a copy of the 22 octal word UFD for the 
current file. (See chart for STAT call. ) 
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FILE MAINTENANCE (Continued) 

Get File Directory Information for a Given Channel (CHSTS) (Continued) 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to CHSTS is: 

r^ A T T /-IT mrr^r' /T/-tt T * » T T • T-t TT^ T^ \ 

v-^i^iji^ (-.00 10 ^IV^n/ilN, UMS., mil) 

Get Current File Directory Information (STAT) 

A call to the routine STAT allows the user to get a copy of the current directory status information 
for a specified file. This call causes a copy of the 22 (octal) word UFD to be written into a user- 
specified area. The file whose UFD is hpincr rnniprl ncpri nr.f- Ko r-rioT, of- t-v,a Hr^^ n,i„ „„ii ,„ .-„ J 

If the file is open, however, the information returned is a "snapshot" of the UFD as it existed at 
the time of the most recent OPEN. 

Following is a template of the UFD with displacement mnemonics: 



Displacement 



0-4 

5 

6 

7 

10 

11 

12 

13 
14 
15 
16 
17 
20 
21 



Mnemonic 



UFTFN 

UFTEX 

UFTAT 

UFTLK 

UFTBK 

UFTBC 

UFTAD 

UFTAC 

UFTYD 

UFTHM 

UFTPl 

UFTP2 

UFTUC 

UFTDL 



Contents 



File name 

Extension 

File attributes 

Link access attributes 

Number of the last block in the file 

Number of bytes in the last block 

Starting logical block address of the file 

(random fUe index for random files) 

Year/day last accessed 

Year /day created 

Hour /minute created 

TTcr^ 4-^^^ — 

*-^J- X-f LC lll^l^ J. CLX y 

UFD temporary 
User count 
DCT link 



Link UFDs assign mnemonics UFLAD and UFLAN to words 7 and 14. Also in link UFDs, words 
7 - 13 and 14 - 20 are reserved for an alternate directory specifier (if any) and an alias (if any) 
respectively. 

The format of the call to STAT Is: 

CALL STAT (filename, array , error ) 
where: filename is the name of the file for which status information is to be copied. 

array is an Integer array which will return the status information. 

error is an integer variable which will return an error code upon completion of the calL 
An example of a call to STAT is: 

CALL STAT ("YIO", lAR, lER) 
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FILE MAINTENANCE (Continued) 

Update the Current File Size (UPDATE) 

A call to the nm time routine UPDATE permits a file's size information to be updated without 
first closing the file. Specifically, this call causes Information in UFTBK and UFTBC in the 
UFD on disk to be updated with current information for the file opened on a specified channel, 
and it flushes all system buffers to ensure that the file contains all information which has been 
written into it by the user. The format of the call to UPDATE is: 

CALL UPDATE ( channel , error ) 

where: channel is an integer variable or constant which specifies the channel on which the file is 
currently open. 

error is an integer variable which will return one of the error codes. 
An example of a caU to UPDATE is: 

CALL UPDATE (ICHAN, lER) 

FILE ATTRIBUTE MAINTENANCE 

File attribute calls allow the user to determine the current attributes of a file or device and to change 
the file attributes if desired. 

Examine the Attributes of a File (GTATR) 

The GTATR call will obtain for examination by the user the attributes of a file. To obtain attributes, 
the file must first have been opened on the channel number specified within the GTATR command. 
The call to GTATR has the format: 

CALL GTATR (channel , attributes, error ) 

where: channel is an integer constant or variable whose value specifies the number of the channel 
on which the file whose attributes are to be examined is opened. 

attributes is an integer variable whose value is set to represent the attributes of a file. 

error is an integer variable which will return one of the error codes upon completion of 
the call. 



The representation of attributes is as follows: 



Bit 


Meaning 


IBO 


Read- protected file. Cannot be read. 




IBl 


Attribute-protected file. Attributes cannot be changed. 




1B2 


Save file (core image file). 




1B3 


Link entry. 




1B4 


Partition. 




1B5 


Directory file. 




1B6 


Link resolution (temporary). Some or all of the attributes 
of the open. 


persist for the duration 


1B7 


No link resolution allowed. 




1B9 


User attribute. 




IBIO 


User attribute. 




IBU 


Reserved 




1B12 


Contiguous file. 




1B13 


Random file. 




1B14 


Permanent file. Cannot be deleted or renamed. 




1B15 


Write-protected file. Cannot be written. 
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FILE ATTRIBUTE MAINTENANCE (Continued) 
Examine the Attributes of a File (GTATR) (Continued) 

An example of a call to GTATR is: 

CALL GTATR (5, lAT, lER) 

Change, Add, or Delete File Attributes (FSTAT) 

The caU to FSTAT causes a file's attributes (or its resolution attributes, in the case of a link) to be 
changed as specified by the user. If this call is issued by a link user, his copy of the file attributes 
is temporarily changed until he closes the file; the resolution attributes persist. To change the 
attributes of a file, the file must first be opened. The format of the call to FSTAT is: 

CALL FSTAT ( channel, attributes , error ) 

where: channel is an integer constant or variable whose value specifies the number of the channel 
on which the file whose attributes are to be changed is opened. 

attributes is an integer constant or variable whose value specifies the attributes to be 
assigned to the file. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

The representation of the attributes which may be assigned to attributes is the same as listed 
on page 3-8 for the GTATR call. An example of a call to FSTAT is: 

CALL FSTAT (12, 1, lER) 

Change or Add Link File Access Attributes (CHLAT) 

This call causes the user's copy of the Knk access attributes word to be changed. When a file is 
opened via a link entry, the attributes of the file as seen by the user are formed by the inclusive OR 
of the resolution entry's attributes and the user's copy of the link access entry attributes. The link 
access entry attributes are zero by default. The format of the call is: 

CALL CHLAT (channel , attributes , error) 

where: channel is an integer constant or variable whose value specifies the number of the channel 
on which the file whose attributes are to be changed is opened. 

attributes is an integer constant or variable whose value specifies the attributes to be 
assigned to the file. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

The representation of attributes is as shown on page 3-8 for the GTATR call. An example of a call 
to CHLAT is: 

CALL CHLAT (5, lAT, lER) 
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FILE INPUT/OUTPUT 

Get the Name of the Current Input/Output Console (GCIN, GCOUT) 

Before opening the console device, the user might find it necessary to find out which device is the 
current console to be used for input and which is the current console to be used for output. This is 
accomplished by issuing a call to either the routine GCIN or the routine GCOUT. The format of 
the two calls is: 

CALL GCIN ( array ) -. get the name of the current input console ($TTI or $TTI1) 

CALL GCOUT ( array ) get the name of the current output console ($TTO or $TT01) 

where: array is the name of an integer array that will contain the console name requested. 
An example of a call to GCIN and GCOUT is: 

CALL GCIN (lAR) 

CALL GCOUT (lARR) 

Opening Files 
Open a File (OPEN) 

An RDOS disk file may be opened by executing a call to OPEN. The call has the format: 
CALL OPEN (channel, filename , fmode' j ■ error f.sizel) 



5, fmode' j , 
\ array ? 



where: channel is an integer variable or constant whose value specifies the number of the channel 
(0 - 63) on which filename is opened. 

filename is the name of the file which is to be opened. 

mode (an alternate argument in the command line) is an integer constant or variable whose 
value indicates the mode of the file being opened, either: 

1 - open for reading only 

3 - open for writing by one user but for reading by one or more users 
other than 1 or 3 - open for user -shared reading and writing 

array (an alternate argument in the command line) is a three-element integ-er array whose 
elements contain the following information: 

First element: contains -1 (the array flag) 

Second element: contains either: 

1 - open for reading only 

3 - open for writing by one user 

other than 1 or 3 - open for user-shared reading and writing 

Third element: contains the device characteristic mask (see next page) 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

size is an argument which is an Integer constant or variable specifying the number of bytes that 
are to make up a record of a random file, size must be given only if the file is random. 
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FILE INPUT /OUTPUT (Continued) 
Opening Files (Continued) 
Open aFile (OPEN) (Continued) 



When a call to OPEN is executed, the file with the specified name filename will be opened on the 



tion is to be written, all previous information contained in the file will be overwritten. Note that if 
a TYPE or ACCEPT statement was issued before the call to OPEN, channel numbers 10 or 11, 
respectively, are already open unless closed by the user. 

The bit/characteristic correspondence used in setting the device characteristic mask is: 



Bit 


Meaning 


IBO 


Spooling enabled (OBO is spooling disabled)* 




IBl 


80-column device 




1B2 


device changing lower case ASCII to upper case 




1B3 


device requiring form feeds on opening 




1B4 


full word device (reads or writes more than a byte) 




1B5 


spoolable device * 




1B6 


output device requiring line feeds after carriage returns 




1B7 


input device requiring a parity check; output device requiring parity to be computed | 


1B8 


output device requiring a rubout after every tab 




1B9 


output device requiring nulls after every form feed 




IBIO 


a keyboard input device 




IBll 


a teletype output device 




1B12 


output device without form feed hardware 




1B13 


device requiring operator intervention 




1B14 


output device requiring tabbing hardware 




1B15 


output device requiring leader /trailer 

.. 





If an MCA line is being opened, the third element of the array cannot contain a characteristic 
inhibit mask. Instead, for receiver lines the word must be cleared to zero. If a transmitter line 
is to be opened and the default number of retries (requiring 655 seconds) is to be used, the element 
must again be cleared to all zeros. However, if a different timeout value is to be specified, bit 15 
of the element must be set to one (and all other bits must be cleared). The actual specification of a 
retry count will be deferred to the time the call to WRITR is issued. 

Examples of calls to OPEN follow: 

CALL OPEN (3, "TEST", 2, lER, 128) 

CALL OPEN (5, "X45", lAR, lER) 

Open a File (FOPEN) 

A call to the routine FOPEN will assign a specified channel number to a device or to a disk fUe. By 
default, a disk file will be opened in random mode and a device will be opened in sequential mode. The 
call to FOPEN has the following format: 

CALL FOPEN ( channel , filename f , "B" ] f , recordbytes j ) 
where: channel is an integer constant or variable with a value between and 63, q. 



* Cannot be changed by an OPEN command. 
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FILE INPUT/OUTPUT (Continued) 

Opening Files (Continued 

Open a File (FOPEN) (Continued) 

filename Is a string constant or array name. The array is initialized to an ASCII string by 
a DATA statement or is input using the S (not the A) FORMAT descriptor. (When using the 
Stand-alone Operating System, filename i s ignored and channel is opened to its pre -assigned 
device. ) 

"B" indicates that the file is opened with all device characteristics Inhibited. (This inhibits 
such functions as outputting a rubout after a tab to the paper tape punch. ) 

recordbytes implies a random file record and is the length in bytes of the random file record 
referenced as an integer constant or a variable. 

Examples of calls to FOPEN are: 

CALL FOPEN (ICH, "RFILE", "B", 2(X)) 
CALL FOPEN (3. 'DATAFILE'. 40) 
CALL FOPEN (4. '$PTR'. 'B') 

Open a File for Appending (APPEND) 

A file is opened for appending by executing a call to the APPEND routine. The call has the format: 
CALL APPEND (channel, filename, J mode I , error {, size } ) 



3, I mode I , 
^ array f 



where: channel is an integer variable or constant whose value specifies the number of the channel 
(0 - 63) on which filename is appended to. 

filename is the name of the file to be opened for appending. 

mode (an alternate argument in the command Une) is an integer constant or variable whose 
value indicates the mode of the file being appended to, either: 

1 - open for reading only 

3 - open for writing (by one user only, though one or more users 

may open it for readCig. 

other than 1 or 3 -- open for user-shared reading and writing, 
array (an alternate argument In the command line) is a three-element integer array whose 
elements contain the following information: 

First element: contains -1 (the array flag) 

Second element; contains either: 

1 opened for reading only 

3 opened for writing by one user 

other than 1 or 3 opened for user-shared reading and writing 

Third element: contains the device characteristics mask (as Usted for the 

OPEN call). 

error is an integer variable which will return one of the error codes upon completion of 
the call. 

size is an integer constant or variable specifying the number of bytes that are to make up 
a record of a random fUe. size must be given only if the file is random. 
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FILE INPUT /OUTPUT (Continued) 

Opening Files (Continued) 

Open a File for Appending (APPEND ) (Continued) 

When a call to APPEND is executed, the end of the file filename is located and filename is opened 
on the specified channel. Subsequent output of the file is appended to the data already there. An 
example of a call to APPEND is: 

CALL APPEND (5, "SQRT", 2, lERR, ISIZ) 

Closing Files 

Close a File (CLOSE) 

An RDOS file may be closed by a call to the routine CLOSE (which is preferred to FCLOS). The 
call has the format: 

CALL CLOSE (channel , error ) 

where: channel is an integer variable or constant whose value specifies the channel number 
associated with the file to be closed. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to CLOSE is: 

CALL CLOSE (14, lER) 

Close a File (FCLOS) 

The FCLOS routine may also be called to free a channel and to close a file on the specified channel. 
The format of the call is: 

CALL FCLOS ( channel ) 

where: channel is an integer constant or variable with a value between and 63 jq specifying 
the channel which the user wishes to free. 

An example of a call to FCLOS is: 

CALL FCLOS (10) 
Close all Open Files (RESET) 
All open files can be closed by issuing a call to RESET. The call has the format: 

CALL RESET 
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FILE INPUT /OUTPUT (Continued) 

Reading and Writing Blocks and Records 

Read a Series of Blocks (RDBLK) 

A series of blocks can be read from a contiguously or randomly organized file without utilizing a system 
buffer by executing a call to the RDBLK routine. Thecal! has the format: 

CALL RDBLK (channel , sblock , array, nblock, error { , iblk } ) 

where: channel is an integer constant or variable whose value specifies the number of the channel 
on which the contiguously organized file to be read from is opened. 

sblock is an integer constant or variable whose value specifies the number of the first block 
to be read. 

array is the name of an integer array that is to receive the blocks that are read. The array 
must be nblock * 256 words in length. (No error check is made on the adequacy of the array 
length. ) 

nblock is an integer constant or variable whose value specifies the number of consecutive 
blocks to be read. 

error is an Integer variable which will return one of the error codes upon completion 
of the call. 

iblk is an optional integer variable that will be set to return the number of blocks read 
on encountering an EOF. 

An example of a call to RDBLK is: 

CALL RDBLK (10, 100, lARR, 15, lER, IBLK) 

Execution of this call causes 15 contiguous blocks to be read, starting from the 100th block, into array 
LARR. The L\RR array must have been previously dimensioned to a length of 3840 words 

Read a Series of Records (READR, RDRW) 

A series of records can be read from a randomly organized file into an integer array by executing 
a call to READR or a call to RDRW. The calls have the formats: 

CALL READR (channel , srec , array , nrec, error { , nbyte } ) 

CALL RDRW ( channel , srec , array, nrec, error f , nbyte } ) 

where: channel is an integer variable or constant whose value specifies the number of the channel 
on which the random file to be read is opened. 

srec is an integer constant or variable whose value specifies the number of the first record 
to be read. 

array is the name of an Integer array that is to receive the records to be read. (There is no 
check on the adequacy of the array length. ) 

nrec is an integer constant or variable whose value specifies the number of successive 
random records to be read. 
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FILE INPUT/ OUTPUT (Continued) 

Reading and Writing Blocks and Records (Continued) 

Read a Series of Records (READR, RDRW) ( Continued) 

error is an integer variable which will return one of the error codes upon completion on the 
call. 

nbyte is an optional integer variable that returns the byte count read if an EOF or disk 
full is encountered. 

CALL READR (15, 0, LARR, 20. lERR) 

Write a Series of Records (WRITR, WRTR) 

A series of records can be written into a file by executing a call to the WRITR routine or to the WRTR 
routine. The calls have the formats: 

CALL WRITR ( channel , srec, array, nrec, error f- , nbyte )- ) 

CALL WRTR ( channel , srec, array, nrec, error f- , nbyte ] ) 

where: channel is an integer constant or variable whose value specifies the number of the channel 
on which the file to be written is opened. 

srec is an integer constant or variable whose value specifies the number of the first record 
to be written. 

array is the name of the integer array that contains the information to be written. (No check is 
made on the adequacy of the array's length. ) 

nrec is an integer constant or variable whose value specifies the number of consecutive 
records to be written. 

error is an integer variable which will return one of the error codes upon completion of 
the call. 

nbyte is an optional integer variable that returns a partial byte count if an EOF or disk 
full is encountered. 

CALL WRITR (12, IRECD, IRAR, NRECD, lER, NBYTE) 

Write a Series of Blocks (WRBLK) 

A series of blocks may be written into a contiguous or random disk file, without intermediate system 
buffering, from an integer array by executing a call to WRBLK routine. The call has the format: 

CALL WRBLK ( channel , sblock, array, nblock, error |- , iblk ]- ) 
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FILE INPUT /OUTPUT (Continued) 

Reading and Writing Blocks and Records (Continued) 

Write a Series of Blocks (WRBLK) (Continued) 

where: channel is an integer constant or variable whose value specifies the number of the channel 
(0 - 63) on which the file to be written into is opened. 

sblock is an integer constant or variable whose value specifies the number of the first 
block to be written. 

array is the name of an integer array that contains the blocks that are to be written. The 
array must be 256 * nblock words in length, but no check is made on the adequacy of the 
array's length. 

nblock is an integer variable or constant specifying the number of blocks to be written. 

error is an integer variable which will return one of the error codes upon completion of 
the call. 

iblk is an optional integer vajriable that is set equal to the number of blocks written should 
a disk full occur. 

An example of a call to WRBLK is: 

CALL WRBLK (12. 200, lARR, IBLK, lERR, IBYTE) 

FREE FORMAT CASSETTE OR MAGNETIC TAPE I/O 

Open a Cassette or Magnetic Tape Unit for Free Format I/O (MTOPD) 

Before free format reading or writing can be performed on either an initialized magnetic tape or 
cassette unit, the device must be opened and linked to a channel. The routine to open files or 
devices (OPEN) cannot be used to open a magnetic or cassette tape unit for free format I/O : only 
MTOPD can be used to open these devices for this purpose. 

A call to MTOPD positions a free format tape to a desired file, since the file name argument given 
to MTOPD includes both the unit name and the file number (MTji:m or CTji:m). The format of the 
call is: 

CALL MTOPD ( channel , filename , mask , error ) 

where: channel is an integer constant or variable whose value specifies the number of the channel 
on which filename is to be opened. 

filename is the name of the magnetic tape unit or cassette unit to be opened. 

mask is the device characteristic mask. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

For a list of the bit/characteristic correspondences see the OPEN caU. 
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FREE FORMAT CASSETTE OR MAGNETIC TAPE I/O (Continued) 

Open a Cassette or Magnetic Tape Unit for Free Format I/O (MTOPD) (Continued) 

An example of a call to MTOPD is : 

CALL MTOPD (16, "MT6:1", 3, lER) 

Free Format Tape I/OgvlTDIO ) 

Before free format I/O can be performed on a tape unit, that unit must first have been opened for 
free format I/O by means of a call to MTOPD. The call to MTDIO permits the operation of mag- 
netic tape and cassette units on a machine level: reading and writing of records in variable length 
records or to the start of a new data file, and performing of other similar machine level operations. 
Free format I/O is entirely under user control; the user must check for proper formatting when 
using MTDIO. The format of the call is: 



CALL MTDIO ( channel , comma.idword , I/O -array , status , error -|, f U ) 



{ record -count 
word -count 



'}. 



where: channel is an integer constant or variable specifying the channel number (0 - 63) on 
which the device was opened. 

commandword is an integer constant or variable whose bits specify which operation 
is to be performed as follows: 

Bit Meaning 

Parity bit (1 = even, = odd) 

1-3 - read (words) 

1 - rewind the tape 

3 - space forward (over records or over file of any size) 

A - Qnon^ HanViwa-rrl (rwTe^T T(^m-rr\<z rsy nvpr flip nf aiTsr si7p\ 

5 - write (words) 

6 - write end of file 

7 - read device status word 

4-15 Word or record count. If on a space forward (or space 

backward) command, the tape is positioned to the beginning 
of the next (or previous) file on the tape. If on a read or 
write command, 4096 words are read (or written) unless an 
end of record is detected. 

I/O-array is an integer array used for transmitting and receiving data. (In many 
instances, MTDIO is not used for data transfer, e. g. , when status is requested, 
for rewinding, etc. In these instances, I/O-array must be present but is a dummy. ) 

status is an integer variable that can return the following status information if comm and - 
word has a 7 (read device status word) in bits 1-3: 

Bit Meaning 

Error (bits 1, 3, 5, 6, 7, 8, 10 or 14 set) 

1 Data late 

2 Tape is rewinding 

3 Illegal command 

4 High density if = 1 (always 1 for cassettes) 

5 Parity error 

6 End of tape 
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FREE FORMAT CASSETTE OR MAGNETIC TAPE I/O (Continued) 
Free Format Tape I/O (MTDrO) (Continued) 

Bit Meaning 

7 End of file 

8 Tape is at load point 

9 9-track if =1, 7-track if = (always 1 for cassettes) 

10 Bad tape or write failure 

11 Send clock (always for cassette) 

12 First character (always for cassette) 

13 Write protected or write-locked 

14 Odd character (always set to for cassettes) 

15 Unit ready 

error is an integer variable that returns either one of the FORTRAN error flags 
(page 1 -3), which is a positive value, or returns the transport status word listed 
above. 

record -count or word-count is an optional integer variable that returns the num- 
ber of words written or read on a write or read or returns the number of records 
spaced over on space forward or backward. 

An example of a call to MTDIO is: 

DIMENSION IRRAY (1024) 

CALL MTDIO (5, ICOM, IRRAY, ISTAT, lER) 
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:hapter 4 

TASKING 



mjLTlTASKING CONCEPTS 

A task is defined as a logically complete execution path through a user program that demands 
use of system resources such as peripheral devices for I/O, system or user overlays, or simply 
CPU control; task execution may occur independently and asynchronously with other tasks. 
A FORTRAN IV program run under RDOS can consist of any number of these tasks. 

When a running program consists of more than one task, it is said to be a multitasking program. 
In such a multitask environment, tasks compete simultaneously for the use of system resources. 
Only one task may receive CPU control and the desired resource at any single moment. This 
allocation is awarded to tasks according to their priority and readiness to use the resources. 
A task scheduler governs the transfer of control to each task. 

FORTRAN IV uses the multitask programming facilities available under RDOS, which allow 
execution of various routines to be performed asynchronously as separate tasks. 

Task States 

At a given time during execution of a multitask program, a task can be in one of four states: 
dormant, suspended, ready, or executing. A dormant task is one that has not been activated 
yet or has been terminated. A ready task is one that can proceed when given control of the 
processor. A suspended task is one that is not ready to proceed but is still alive. Tasks are 
said to be active if they exist in either the ready, suspended, or executing states. 

When a task is activated (FTASK or ITASK), it enters the ready state and competes with other 
ready tasks for control of the processor based on assigned priorities. When the task 
scheduler gives a ready task control of the processor, that task goes into the executing state 
and retains control until it has been completed or some event forces it to relinquish control. 
When a task cannot proceed until some event occurs, that task goes into the suspended state 
until that event occurs. 

The diagram on the following page outlines the various task states pertaining to the calls 
which transfer a task from one state to another. 

Task Control Blocks 

A task control block (TCB) is a block of 13 or 14 locations used to store the status of an active task. l 

Each active task, including the main program, h%s a single TCB maintained for it by the task I 

scheduler. These TCB's are linked together to form the active chain. When a multitask pro- 
gram is loaded, a number of TCB's are created as specified in the CHANT ASK statement (or 
in the RLDR command line format). During the execution of the program, those TCBs that 
are not being used are linked together to form the free chain. 

When a task is activated, a free TCB is taken from the free chain and linked to the active chain. 
This TCB is then filled with status information for the newly activated task. 
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lask State Transitions 



Task Priorities 



When a task is activated it is assigned a priority number in the range to 255 decimal. Tasks 
with the lowest numbers have the highest priorities. The task scheduler always gives control 
of the processor to the task in the ready state with the highest priority. The priority number 
assigned to a task can be changed while that task is executing a CALL PRI statement. 

More than one task may be assigned the same priority number. The relative priority of 
ready tasks with a common priority number is determined by the relative positions of their 
respective task control blocks (TCBs) on the active chain maintained by the task scheduler. 
Each time a task relinquishes control to the scheduler, its TCB is moved to the end of the 
active chain. This gives ready tasks with a common priority number approximately equal 
opportunities to receive control of the processor. 

Optionally, a task may have a task identification number (ID) which can be used in referencing 
that particular task. Task identification numbers have a default value of zero, or may be set 
with a value from 1 to 255. Only one task may be assigned to one identification number from 1 
to 255, although many tasks may have the default identification number of zero. 

Task Scheduler 

During the execution of a multitask program, the task scheduler receives control of the pro- 
cessor when a task issues I/O or other system calls. The task scheduler searches the active 
chain for the TCB of the ready task with the highest priority number. This task is then given 
control of the processor to the task. If there are no tasks in the ready state, the task scheduler 
will wait until some event causes a task to be readied. 
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TASK EXECUTION CONTROL 

Writing a Multitask Program 

The main FORTRAN program and one or more task subprograms are written as program units of a 
multitasking program. The main program is at priority level zero at initiation of execution and thus 
receives control initially for execution. If the main FORTRAN program unit is killed, it cannot be re- 
activated unless the program is restarted, i.e. , the FORTRAN program cannot be activated by a call 

LU r inoix. 

The user must specify, before program execution, the number of channels that may be open at any 
time and the number of tasks that may be simultaneously active at any time during program execu- 
tion. There are several ways to specify the number of channels and tasks. They may be given in the 
FORTRAN CHANTASK statement, where CHANTASK is a specification statement of the following form: 

r'T-IAMTAC:l<' niirnhpT- r»f r'Vianrw='1 a . T^^^m^w^-r r\f t-acVa 



where: number of channels is an integer constant in the range 1 to 64 decimal, repre- 
senting the maximum number of channels that may be open at any one time. 

number of tasks i s an integer decimal constant representing the maximum number of 
tasks that can simultaneously be active at any one time during program execution. 

When making channel and task specifications within a CHANTASK statement, the CHANTASK state- 
ment must precede all other statements in the main FORTRAN program, except a COMPILER 
DOUBLE PRECISION statement, COMPILER NOSTACK statement, or an OVERLAY statement. 

The CHANTASK specification of the number of tasks may be overridden at load time by a user- 
written assembly language program that is loaded just before the run time library and is called 
FRTSK. The source code of FRTSK would be: 

.TITL FRTSK 

.ENT FRTSK 

FRTSK = (n) where n is the number of tasks 

.END 

The KLUK /K switch may be used at load time to override the CHANTASK specification of the . 

number of tasks. The /K switch is preceded by an octal value that is the number of required I 

simultaneously active tasks. 

The RLDR /C switch may be used at load time to override the number of channels given in a CHANTASK 
statement. The /C switch is preceded by an octal value that specifies the number of required channels. 

The number of channels specified indicates the exact number of RDOS channels. A minimum of 
16 decimal FORTRAN logical channels will be allocated even though fewer RDOS channels are 
specified. However, the number of FORTRAN logical channels available for concurrent use will be 
limited to the number of REXDS channels specified. 

At load time, the total run time stack area available is divided into as many parts as there are tasks 
specified. Each task has only the space of one of these equal portions available to it at run time. K 
a task needs more than its available stack area at run time, a fatal run time error results. The 
user can allot more stack space to each task only by further limiting the number of simultaneously 
active tasks. For example, assume a user program contains the tasks: 

ABCDEFGHIJK 

The number of active tasks may be set to II in the CHANTASK statement. If this results ui a fatal 
run time error, the user may be able to limit further the number of simultaneously active tasks. For 
example, if A, B, C, and D are written in assembly language, they may be excluded. If, of the re- 
maining tasks written the FORTRAN, only three are active at any one time, the user should reload 
the program, setting the number of active tasks to 3 with the /K switch or an FRTSK program. 
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Writing a Multitask Program (Continued) 

The number of tasks specified indicates the number of task control blocks that will be available 
at run time. If an attempt is made to activate a task when all available TCBs are in use, an 
error condition will result (see Activating a Task). Each task subprogram must begin with a 
TASK statement and end with an END line. The TASK statement has the following format: 

TASK taskname 

where: taskname is the name assigned to the task program unit. This name must be unique within 

its first five characters with respect to all function, subroutine, task, and overlay names. 

A task name must be declared EXTERNAL in each external program unit that references it. Each 
task may be executed an arbitrary number of times during execution of a multitasking program. 

Task Activation (FTASK, ITASK, ASSOC) 

All tasks except the main FORTRAN program unit are activated by executing a call to either 
FTASK or ITASK. FTASK activates a task by task name ; ITASK associates the identification num- 
ber with the task name by which the task may later be referenced. A call to ASSOC associates a 
task name with an identification number and then puts the task in the suspended state; it can later 
be executed by calling START or TRNON. The call to FTASK has the format: 

CALL FTASK (taskname, $error-return, priority-number f, lASM} ) 

where: taskname is the name of the task to be activated, taskname is declared EXTERNAL 

iu the calling task. 

iferror-return is a number of a statement in the calling program to which control is re- 
turned if the task cannot be activated (used when no TCB is available for the task). 

priority number is an integer constant in the range - 255 (decimal) specifying 
the priority assigned to the new task. (A priority of indicates priority the same 
as the calling program. ) 

lASM is an optional parameter which must be in the argument list and set to non- 
zero if the task to be activated is written in other than FORTRAN IV (i.e. , 
written in assembly language) and is not using the FORTRAN run time stack. Con- 
versely, if lASM does not appear within the FTASK command line, taskname must 
be written in FORTRAN IV. 

An example of a call to FTASK is: 

EXTERNAL PROG 
CALL FTASK (PROG, $14, 6) 
14 WRITE (10) "NOT ENOUGH TCBS" 

A call to ITASK will, as well as activate a task, associate an identification number with the 
specified task. The format of the call to ITASK is: 

CALL ITASK ( taskname , identification, priority-number, error f , lASM ] ) 

where: taskname is the name of the task to be activated, taskname must be declared EXTERNAL 

in the calling task. 

identification is the task identification number which is either an integer 
variable or an integer constant in the range - 255; zero i§ the default value 
of the ID. 
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Writing a Multitask Program (Continued) 

priority-number is an integer variable or constant in the 0-255 (decimal) 
range specifying the priority to be assigned to the newly activated task. A 
priority number of zero indicates that the task will have the same priority as 
the calUng program. 

error is an integer variable which will return one of the error codes upon 

lASM is an optional parameter which must be in the argument list and set 

to non-zero if the task to be activated is written in other than FORTRAN IV (i.e. 

written in assembly language) and is not using the FORTRAN run time stack. 

Conversely, if LASM does not appear within the ITASK call, taskname , 

must be written in FORTRAN IV. 

An example of a call to ITASK is : 



EXTERNAL PI 

CALL ITASK (PI, 10, 6, lER) 



A call to ASSOC has the format: 

CALL ASSOC ( taskname , identification, priority-number , error f , LASM} ) 

where: taskname is the name of the task to be put in the suspended state, taskname is declared 

EXTERNAL in the calling task. 

identification is the task identification number which is either an integer 
variable or constant in the range - 255 (decimal); zero is the default ID value. 

priority-number is an integer variable or constant in the - 255 (decimal) 
range specifying the priority to be assigned to the newly activated task. A 
priority number of zero indicates that the task will have the same priority as 
the calling task. 

error is an integer variable which will return one of the error codes upon 
completion of the call. 

lASM is an optional parameter which must be in the argument list and set to 
non-zero if the task to be activated is written in other than FORTRAN IV 
(i. e. , in assembly language) and not using the FORTRAN run time stack. 
Conversely, if lASM does not appear within the ASSOC statement format, 
taskname must be written in FORTRAN IV. 

The difference between a call to ITASK and a call to ASSOC is that both calls associate 
a task name with an identification number, but ITASK puts the task in the ready state 
while ASSOC puts the task in the suspended state. Routines activated by ASSOC may 
later be put into the ready state for execution by a call to START or a call to TRNON, 
both described on pages following. 
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Task Activation Based on Time of Day (FQTASK) 

Tasks contained in overlays or resident in main memory can be executed periodically with 
an FQTASK call. If the task is contained in an overlay, it causes the overlay containing 
the task to be loaded so that execution of the task can proceed. Provision is also made to 
periodically execute core resident tasks. The call has the format: 

CALL FQTASK ( overlayname , task , array , error t, type} ) 

where: overlayname is the name of the overlay containing the task subprogram to be 

executed, overlayname must he declared EXTERNAL in the calling task. 

task is the name of the task subprogram (specified by TASK statement), task 
must be declared EXTERNAL in the calUng task. 

array is the name of an 11 -element Integer array that is unique for the task. 

error is an integer variable which will return one of the error codes upon 
completion of the call. 

type is an optional parameter which must be in the call if the task to be 
activated is written in other than FORTRAN IV (i.e. , written in assembly 
language) or if the task is core resident. But, if type does not appear 
within the FQTASK call, task must have been written in FORTRAN IV 
and must be an overlay. In the case of non-overlay tasks, overlayname 
is a required dummy, type , when present, is an integer variable or 
constant specifying: 

task is a FORTRAN overlay 

-1 task is core-resident (non-overlay) 

-2 task is non-FORTRAN overlay 

-3 task is non-FORTRAN and core-resident non-overlay 

Each task to be called by FQTASK must have a unique array. Before a call to FQTASK is 
executed, elements of array must have been assigned values as shown: 

Element Value 

1 Used by the system 

2 Number of times task is to be executed 

3 Used by the system 

4 Starting hour of the first task (0<hour<23) 

5 Starting second within the hour of the 
first task execution (0<second<3599) 

6 Task priority 

7 Time (seconds) between successive task 
executions 

8 Used by the system 

9 Channel number on which the overlay file 

is opened (not used if task is core-resident) 

10 Overlay conditional flag (0 = unconditional, 
1 = conditional). Not used if task is core- 
resident. 

11 Task ID. If no task ID is required, the 
element must be set to zero. 
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Task Activation Based on Time of Day (FQTASK) (Continued) 

In addition to setting up array, the overlay fUe containing overlayname must have been 
opened via a call to OVOPN. 

When a call to FQTASK is executed, overlayname is loaded at the time specified in array 
elements 4 and 5 and task is first executed. The task is executed periodically after each 
increment specified by element 7 untU the task has been executed the number of times 



While it is not necessary for FOKniAN resident tasks queued in by FQTASK to be term- 
inated by a call to KILL or for overlay tasks to be terminated by OVKIL if they are queued 
in by a call to FQTASK, it is recommended that the user provide the terminating KILL or 
OVKIL calls respectively. 

Assembly language resident tasks and overlays are handled In a slightly different manner, 
but they also need not be terminated by a call to KILL or OVKIL respectively if queued in 
by a call to FQTASK. Assembly language resident tasks do not need a call to KILL if the 
address stored in ACS is saved on entry and jumped to on exit. Assembly language 
overlay tasks queued in do not need a call to OVKIL if the address stored in ACS is saved 
on entry and jumped to on exit with the overlay number stored in AGO. 

If the necessary overlay area for overlayname is not available or if there is no TCB avail- 
able for the task, task execution is postponed until the resource is available. Examples 
of calls to FQTASK are: 

CALL FQTASK (OV, TASKl, lAR, lER) 

CALL FQTASK (DIM, TASKl, lAR, lER, -1) 

Start a Task After a Time Delay (START) 

A call to the routine START will cause a task, which has been activated and put into the 
suspended state by a call to ASSOC, to be "ut into the read'' state for execution after 
expiration of a specified time delay. The format of the call is: 

CALL START (id. time, unit, error) 

where: id_is the identification number of the task which is to be delayed then executed 
at the expiration of the delay. 

time is an integer variable, constant or array element specifying the length of 
time (in units specified by unit) of the delay before execution of the task. (If time 
equals zero, id_will be executed as soon as permissible. ) 

unit i s an integer variable, constant or array element specifying the vmits of 
time as follows: 

pulses of the real time clock 

1 milliseconds 

2 seconds 

3 minutes 

error is an integer variable which wUl be set equal to one of the error codes 
upon completion of the call. 
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Start a Task after a Time Delay (START) (Continued) 

An example of a call to START is: 

CALL START (26, 30, 3, lER) 

Execution of the task with 26 as its identification number will commence in 30 minutes. 

Execute a Task at a Specified Time (TRNON) 

A call CO the TRNON routine will ready a task that was activated and suspended by a call 
to ASSOC for execution at a specified time of day. The format of the call is: 

CALL TRNON (id, array, error) 

where: id is an integer variable, constant, or array element specifying the identification 
number of the task to be executed at a specified time. 

array is an integer 3 -element array specifying: 

first element - hours , 
second element - minutes 
third element - seconds 

error is an integer variable which will return one of the error conditions upon 
completion of the call. 

An example of a call to TRNON is : 

CALL TRNON (32, L^R, lER) 

Task Suspension (SUSP, ASUSP, HOLD, WAIT, FDELY) 

The following may cause suspension of an executing task: 

1. A CALL SUSP is executed. 

2. A CALL HOLD is executed. 

3. The task must wait for some I/O event. 

4. A CALL FDELY is executed. 

5. A CALL ASUSP is executed to suspend all tasks of the 
same priority as the executing task. 

6. A CALL REC is executed to receive a message not yet sent. 

7. A CALL XMTW is executed to transmit a message for which 
a corresponding CALL REC has not yet been received. 

8. A CALL WAIT is executed. 

Note that a task may be doubly suspended, e. g. , by a call to ASUSP and I/O completion. 
In this case, two separate suspend bits are actually set and both must be reset before the 
task will be readied. 

Execution of a call to SUSP causes the task in which it is executed to be suspended. The 
format of the call is: 

CALL SUSP 
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Task Suspension (SUSP, ASUSP, HOLD, WAIT, FDELY) ( Continued) 

Execution of a call to ASUSP causes all tasks of a given priority (ready and executing) to 
be suspended. The format of the call is: 

CALL ASUSP ( priority-number ) 

where: priority number is a decimal integer (0-255) giving the priority number of the 

tasks to be suspended, A ^riorit^^ num-ber of indicates a ^riorit^' e'^ual to that 
of the caller's. 

Execution of a call to HOLD causes the task having the identification number given in the 
call to be suspended. The format of the call is: 

CALL HOLD (identification , error ) 

where: identification is an integer variable, constant, or array element specifying the 
identification number of the task. 

error i s an integer variable which will return one of the error codes upon 
completion of the call. 

A call to the WAIT routine allows the executing task to voluntarily relinquish control of the 
system for a specified period of time. This enables lower-priority tasks to be executed 
for the duration of tlie delay. When execution is resumed, system resources will be as 
they were before the delay. The format of the call is: 

CALL WAIT ( time, units, error ) 

where: time is an integer variable, constant, or array element specifying the length 
of time (in terms of units ) delay to elapse before execution is resumed. 

units is an integer variable, constant, or array element specifying the unit of 
time to be used as follows: 

pulses of the real time clock 

1 milliseconds 

2 seconds. 

3 minutes 

error is an integer variable which will return one of the error codes upon 
completion of the call. 

Execution of a call to FDELY will suspend that task for a specified amount of time. The 
format of the call is: 

CALL FDELY ( number-of-pulses ) 

where: number-of-pulses is a decimal integer, giving the number of real time clock 
pulses for which the task will be suspended. 

Readying a Task (ARDY, RELSE) 

When a task is activated, it is put into the ready state, and while active, remains in 
either the ready state, the executing state, or the suspended state. A suspended task can 
be readied under the following circumstances: 
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Readying a Task (ARDY, RELSE) (Continued) 

1. A task suspended by execution of a call to SUSP, HOLD, or ASUSP may be 
readied by execution of a call to ARDY. 

2. A task suspended for performance of I/O is readied automatically when 
I/O is completed. 

3. A task suspended by execution of a call to FDELY is readied at the end 
of the time period specified. 

4. A task suspended by execution of a call to REC is readied by the execution 
of a corresponding call to XMT or XMTW. 

5. A task suspended by execution of a call to XMTW is readied by the 
execution of a corresponding call to REC. 

Note that a doubly suspended call must be doubly readied. Execution of a call to ARDY 
causes all tasks of the priority specified in the call to be readied if they were previously 
suspended by a SUSP, ASUSP, or HOLD call. No other tasks are affected. The format of 
the call is: 

CALL ARDY ( priority-number ) 

where; priority-number is the priority number of the tasks to be readied. 

Execution of a call to RELSE causes the task having the identification number given in 
the call to be readied if it was suspended by a SUSP, ASUSP, or HOLD call. The format 
of the call is' 

CALL RELSE (id, error) 

where: id is the identification number assigned to the task in an ITASK call. 

error i s an integer variable which will return one of the error codes upon 
completion of the call. 

Task Priority Modification (PRI, CHNGE) 

When a task is activated it is assigned a priority number. A call to PRI makes it possible 
to change the priority number of the task. The call has the format: 

CALL PRI ( priority-number) 

where: priority-number gives the new priority of the task. 

Execution of a call to PRI causes the priority number of the executing task to be changed. 
A task may change its priority any number of times while it is active. An example of a 
call to PRI is: 

CALL PRI (37) 

Execution of a call to CHNGE causes the priority number of the task having the identification 
number given in the call to be changed. The format of the call is: 

CALL CHNGE (id, priority-number , error) 
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Task Priority Modification (PRI, CHNGE) (Continued) 

where; id^is the identification number of the task. 

priority -numbe r gives the new priority of the task. 

error is an integer variable wliich will return one of the error codes upon 
completion of the call. 

Task Termination (KILL, AKILL, ABORT, EXIT) 

A task may be terminated (placed in the dormant state) by execution of a call to KILL, AKILL, 
ABORT, or EXIT. Execution of a call to KILL kills the executing task. The format of the call is 

CALL KILL 

Execution of a call to AKILL immediately terminates all ready or executing tasks of the 
priority number given in the call. Any suspended tasks having that priority number 
are killed immediately, unless they are awaiting an I/O event, in which case they are killed 
immediately after they are readied. The format of the AKILL call is: 

CALL AKILL (priority-number) 

Execution of a call to ABORT terminates the task having the identification number given 
in the call. The format of the call is: 

CALL ABORT (id, error ) 

where: id is the identification number previously assigned in an ITASK call. 

error is an integer variable which will return one of the error codes upon 
completion of the call. 

Execution of a call to EXIT causes the executing task to be terminated and causes a return 
to the CLI. The format of the call is: 

CALL EXIT 

Obtaining Task Status (STTSK) 

The user can obtain the current status of a given task (ready, suspended, or inactive) 
by a call to the STTSK routine. The format of the call is: 

CALL STTSK (W, status, error ) 

where: id is the identification number of the task, assigned in a call to ITASK. 

status is an integer variable for which a status code is returned. 

error is an integer variable which will return one of the error codes upon 
completion of the calL 
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Obtaining Task Status (STTSK) (Continued) 

The possible status codes that may be returned are: 

Ready 

1 Suspended by a . SYSTM call 

2 Suspended by ASUSP, SUSP, HOLD 

3 Wait due to XMTW or REC 

4 Wait for overlay node 

5 Suspended by ASUSP, SUSP, or HOLD and by a . SYSTM call 

6 Suspended by XMT/REC and by SUSP, ASUSP, or HOLD 

7 Wait for overlay node and suspended by ASUSP, SUSP, or HOLD 

8 No tasks exist for this identification number. 

INTERTASK COMMUNICATION (XMT, REC, XMTW) 

Active tasks may communicate with each other through shared COMMON (labeled or blank). 
Information generated by one executing task can be retained in data or subprogram units 
until one or more other tasks are executing and can access this information. No 
synchronization of creation and use of information is implicit in this scheme. Unless 
precautions are taken, attempts may be made by tasks to use information not yet generated. 

Synchronized transmission of one word messages between active tasks can be accomplished 
using three calls: CALL XMT, CALL XMTW, CALL REC. The format of the call to 
XMT is: 

CALL XMT ( message -key , message-source , $ error-return ) 

where- message-key is an integer variable common to both the transmitting and 
receiving tasks. 

message-source is an integer variable in the transrfiitting task containing the 
non-zero message to be transmitted. 

error-return is the number of a FORTRAN statement (in the program unit con- 
taining the CALL XN1T statement) to which control is returned if the message- 
key is non-zero when the CALL XMT is executed. 

A one-word non-zero integer message can be transmitted by setting message -source 
equal to that value and then executing the CALL XMT. A message transmitted to XMT is 
received by execution of a call to the REC routine. The call has the format; 

CALL REC ( message-key , message -destination) 

where: message-key is an integer variable common to both the transmitting and 
receiving tasks. 

message destination is an integer variable accessible by the receiving task. 

In the transmission of a message using corresponding CALL XMT and CALL REC 
statements, the order in which these statements are executed is unimportant. If CALL XMT 
is executed first, the value of message-source is assigned the variable message-key. 
Message -key should have the value of when CALL XMT is executed: if it does not, a 
return is made to statement error-return and the value of message-key is left unchanged. 
When CALL REC is subsequently executed, message -destination is assigned the value of 
message -key and message -key is assigned the value of 0. 
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INTERTASK COMMUNICATION (XMT, REC, XMTW ) (Continued) 

If CALL REC is executed before the corresponding CALL XMT, the receiving task is 
suspended until CALL XMT is executed. When CALL XMT is executed, message - 
destination is assigned the value of variable message-source and the receiving task is 
is placed in the ready state. 



A call to XMTW routine is used in place of CALL XMT when it is desired that the trans- 
mitting task be suspended until the receiving task receives the message. The call XMTW 
has the same format as CALL XMT, v.'ith XMT\¥ merely replacing XMT, The transm.itting 
task is suspended only if CALL XMTW is executed before the corresponding CALL REC, 

An example of the intertask communication calls is: 
COMMON KEY 



CALL REC (KEY, MDEST) 



END 



TASK SEG2 
COMMON KEY 



CALL XMT (KEY, MSRCE,$17) 



17 WRITE (10) "KEY ALREADY SET" 



END 
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SAMPLE TASKING PROGRAM 



The program following is an illustration of a FORTRAN IV program written for a multitask 
environment. The main program contains calls that activate two tasks, TIMPLT and QUAD, 
at priority levels 1 and 2 respectively. The main program then deactivates itself by issuing 
a call to KILL, 

QUAD outputs to the teletypewriter solutions to quadratic equations from input values provided 
by the programmer, TIMPLT prints a counter on the line printer, one count per line, 55 lines 
per page. The counter is incremented once each second, given a real time clock cycle that 
is set to 100 milliseconds. 



TEST 3 






EXTERNAL 
1PU»12 



TIMPLT, OUAD 



37>^ 



378 



377 



lee 



nRITK 



«RITfc CTPU,37fi3 
FORMAT aHl,31X,24rtFriRTRAN TgST 
uRITt CTPU,3783 

(■OkMAT C17H^eEGTM TEST 3 ) 

i»SITECIPu5 ' STAfiT OK MAIm' 
CALL ITaSK CQUAu,l(«,il/i,)ieR) 
CAUU HASK (TIMPLT, 1C1, 111, lER) 
IF CIER.NE.l) BO TO iKi^i . 

"RITECIPUJ • EXn FROM MAIN" 

«PITE (1PU,377) 

FOPMAT C17H(J!F.ND OF T£ST 3 ) 

CALL KILL 

*RITE ClPin ' F^POPl' 

END 



PROGRAM " ///) 
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SAMPLE TASKING PROGRAM (Continued) 



C 

C MTESTIA USED IN TEST3 

C 

TASK atiAD 
C GET BUAORATIC EQiJATION COEFPICTENT)! 

Ai.ii^ 

100 AaA*l 

P«B-A 

CiC+(B-A5 
C F(X) ■ A*X*I2*B*X*C 

IF ( (S**2-d*A*C5 .LT.aJGOTS 13 
C FIND THE REAL POPTS 

XIR ■ C-b+tS**2-4*A«C5**.53/C2*A5 

X?R ■ r-B-(S**2-il*A*C)**.f55/(2*A) 

KkITeC12»nA,B,C,Xl«,X2H 

1 FORhATflH0,"A ■ ",F1P,-1,"B ■ «,F10,4,«C ■ ", 
1 F1P,4,"X1 • ",Fl9i,4,«Xa ■ ",F10,4) 

CALL FDELV(503 
ROTO lt»0 
l-A I««IT£(12,2)A,B,C 

2 FORM*TtlHC»,''*** COMPLEX ROOTS***", 

1 "A ■ ",F1H.4,»B ■ ",F1D!,4,''C • %F10.4) 
GtlTO l?i« 
FNO 



C 

C ►•TESTlB USED IN TEST3 
C 

TA$K TJMPLT 
C SET OUTPUT COUNTER TO ZERO 

JaPI 

K g iA 
1 LINES 1 « 

C RESET LINE COUNTER TO 7ER0 
8 LINES ■ LINES*1 

CALL FnELYdO] 
C IF BOTTOM OF PAGE, GOTO TOP OF NEXT PAGE 

IFCLINES,E0,553G0 TO 10 

kiRITE(12)N 

GOTO ? 
Iv) KiRITFC12)N 

l'.HITe(12,20) 
9ii> FORMATClHl) 

J»J*l 

IFfJ.tO. 2) CALL AKILLC10) 

GiJTn 1 

END 
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SAMPLE TASKING PROGRAM ( Continued) 



FORTRAN TEST PSQGRAM — 



bE&IN TtST 3 
STAKT fjF HAir; 
Exit FRu*^ KAJN 

Eno of TFST 3 

•♦♦ coMRi,£x PunTS***A ■ 1.100SIB ■ ji,900ac ■ 29,8eaei 

**• COMPLEX HODTS + w^A ■ P.10WPB ■ "1,20PI0C ■ 26,5000 

*♦♦ COMPLEX ROOTS***A ■ 3,lwBiilB ■ -4.30000 ■ 10,1000 

♦ *♦ COMPLEX RDnTS*.*A ■ 4,llcPilib ■ -B,4000C ■ 6,6000 

A ■ ^,lC1.fl|,:!B ■ -l3,fSkJP3C ■ -12,PI00(1X1 ■ 3.3495X2 ■ -0,7025 

1 

3 
4 

6 
A m P,l^n•l^^P ■ -19.ftwW0C ■ -i7. 7010X1 « 4.5665X2 • "1,3534 

7 

y 
lii) 

n 

A ■ 7.H«ifmf* ■ -26.7i^mC ■ -71,5000X1 ■ 5,5689X2 « -1,8083 

ta 
13 
14 
19 

16 
A » e.lwwsip ■ -34.8«00C ■ -114.4001X1 ■ 6.4769X2 ■ -2,1806 

17 
IH 
19 

21 
A ■ 9.1t>iC0B ■ «43.9Hid0C ■ -167,4001X1 ■ 7.3328X2 ■ -2,5087 

22 
23 
24 
25 

26 
A c in,li^eHP ■ -54,0^1000 ■ -231,Sbi01Xl ■ 8.1566X2 ■ -2.8101 

27 
28 
29 
3H 

31 

A ■ ll,l?i(4(»6 ■ -65,1H00C ■ -307.7002X1 ■ 8.9590X2 • -3,0942 
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SAMPLE TASKING PROGRAM ( Continued) 



33 
3^ 
»S 

30 

?7 

3!> 

39 

A » l3.U"!S*t!6 ■ -PPI.SV^PWC « -500.4004X1 ■ 10,9231X2 ■ aia.fiSeB 

42 
43 
44 
4S 

46 
A ■ 14,lCTC,/iB ■ -lH4.4Ht»0C » -618,9004X1 ■ U. 2916X2 ■ -3.8873 

47 
4li 

4« 

S« 

51 
A ■ 15.1v<ai!:<e ■ -119.66010 ■ -753.B00SX1 ■ 12,0938X2 ■ -4,1398 

52 
53 
64 

!>5 



66 
A ■ 16.J(^(»i^B > -13S.6P01C ■ -909.2007X1 ■ l2,8HJtX2 • -4,3887 

57 

s« 

ei 
A ■ 17.lfM06 ■ -152.r»MlC ■ -1079,0010X1 a 13.9644X2 • -4,6346 
62 
^3 
64 

A ■ l(«.li-miP ■ -170,B«*!?1C ■ -1263,9010X1 ■ 14.3146X2 • -4.8781 
67 

69 

78 

71 



4-17 



SAMPLE TASKING PROGRAM (Continued) 

A * iR.li/iPi^iP ■ -18<5,<J0PHC ■ -147P, 9010X1 ■ 15.0822X2 • -S.1198 

72 
73 
74 
75 

7B 
* ■ 2W.li»l*^'P ■ -21(»,?IM(«1C « -17b3,«01BX1 1 15,8078X8 • -5,3598 

77 
78 
79 

«1 
A « 21,l?i»nB ■ -231,ltiflC ■ -1955.2010X1 ■ 16,5512X2 ■ -5,5986 

P2 
83 

84 
65 

P6 

A ■ za.ikippip ■ -asa.anff'ic ■ -2230.5010x1 ■ 17,2933x2 ■ -5,8362 

87 

88 
89 

Pet 

91 
A ■ 23.1WICMP ■ -a76,;if«0KC ■ -2B29. 9010X1 « 18.0340X2 • -6,0729 
92 

94 

9S 

96 
A ■ 24.1ZPHP ■ -300.4B01C ■ -2854.4020X1 ■ 18,7736X2 ■ -6,3089 

97 

<iP 

99 . ■ . 



ieii>i 

1»1 
A ■ 25.1i^W!*R ■ -325.50C2C ■ -32n5.0M20Xl • 19.5122X2 ■ -6.5441 
1(^2 
lf*3 
104 

1H6 
A ■ 2ft.lH0^B ■ -351.60CT3C p -3582,7020X1 ■ 20.2500X2 ■ ■6,7787 
107 
108 
109 
ll« 
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CHAPTER 5 
SWAPPING, CHAINING, A^D OVERLAYS 



Program Swapping and Chaining 

During run time, programs may be swapped or chained. In chaining, the currently executing 
program (the caller) issues a call to either FCHAN or CHAIN which causes the program to be 
overwritten in core by another program loaded from disk. The core image of the calling pro- 
gram is not saved. In program swapping, the currently executing program issues a call to 
FSWAP or SWAP which causes the current program's core image to be temporarily saved on 
disk and a new program to be loaded from disk for execution. The saved program can later be 
restored to core by a call to BACK, FBACK, or EBACK and continue its execution from the point 
of suspension. 

The diagram on page 5-2 illustrates the results of the various program segmentation calls and 
statements concerning swapping and chaining. 

When performing a program swap, the calling program is said to execute at a level higher than 
the called program. (The higher the level of execution of a program, the lower its associated 
level number is. The CLI is always at level number 0, an assembler or the FORTRAN IV 
compiler is usually at level number 1, etc. ) When a program issues a call to FSWAP, the exe- 
cution level number is incremented, the calling program is saved on disk, and the called program 
is brought into core for execution. When a call to FBACK, BACK, or EBACK is encountered, 
the execution level number is decremented and the calling program is restored to core. If an at- 
tempt is made to nest swaps to a level deeper than four, an RDOS error will result. 

Program swapping allows core images of programs to be saved and called for execution more than 
once during a program's execution. Each program swapped to must contain a complete FORTRAN 
IV program consisting of a main program unit and all subroutines directly or indirectly linked to it. 

When performing a program chain, the called program will replace the calling program at the 
same execution level. The calling program is not saved but is entirely overwritten by the 
called program. There is no limit on the number of chains performed. Program chaining can 
be used to subdivide an exceedingly large program that would exceed the limits of core if it 
were to reside in core in its entirety. Each chained-to file must contain a complete FORTRAN 
IV program consisting of one main program unit and all subroutines directly or indirectly linked 
to it. 

This chapter is divided into two sections, the first dealing with swapping and chaining. The 
second deals with overlays, defining what an overlay is, and how it is created, deleted, loaded, 
etc. 

Program Swapping (SWAP, FSWAP) 

An executing program can cause its core image to be temporarily saved on disk and another 
program to be loaded from disk for execution. This is accomplished by issuing a call to either 
the SWAP routine or to the FSWAP routine; the difference between the nvo calls being that 
SWAP contains an error location. The format of the two calls is: 

CALL SWAP (fi lename , error ) 
CALL FSWAP (filename ) 
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[«« LEVEL 0— *4* LEVEL 1 » W 



LEVEL 2 



LEVEL 3 








User 


^ 


















SWAP(C) 


1^ 


User C| 






— — — — — 

SWAP(D) 

BACK 










„ 












User B] 






CHAIN(G) 












1 ^ 


BACK 




CLI 












. 












\. 




▼ 


















.. . 






^ 


f 


i 










SWAP(E) 




Jser e| 




^ 


"*■ 


SWAP(D) 
BACK 








EBACK(lER) 




















1 — 


1 1 

















Calls and Statements 

SWAP, FSWAP 

CHAIN, FCHAN 

STOP, EXIT, EBACK (chaining) 

BACK, FBACK. EBACK (swapping) 



Change of Level 

Level n -••level n+1 
Level n — *• level n 
Level n —*■ CLI 
Level n —»• level n-1 



LEVELS OF SWAPPING AND CHAINING 
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Program Swapping (SWAP, FSWAP) (Continued) 

where: filename is the name of the save file to be executed next. 

error is an integer variable which will return one of the error codes upon 
completion of the call. 

The calling program is suspended and its current status is saved in the current TCB. If the 
execution level of the calling program is n, filename executes at level n + 1 . An example 
of a call to SWAP and a call to FSWAP is: 

CALL SWAP ("ABC", lER) 

CALL FSWAP ("A2") 

Restoring a Swapped Program (BACK, FBACK, EBACK) 

An executing program can cause the last program to be swapped out to disk to be brought back 
into core for a resumption of execution. The executing program will, at that time, be swapped 
out to disk until called for again. Calls to the run time routines BACK, FBACK, and EBACK 
will perform this restoration of the last swapped program to disk. The format of the call to 
BACK (which brings back programs swapped by SWAP or FSWAP) is: 

CALL BACK 

The format of the call to FBACK (which brings back programs swapped by either SWAP 
or FSWAP) is: 

CALL FBACK 

The call to EBACK can be made from either a chained -to or swapped -to program and restores 
the program that is at the next higher level with a standard error return. The restored pro- 
gram is either the last program swapped out or in the case of chaining the next higher level pro- 
gram, e.g. , the CLL The format of the call to EBACK is: 

CALL EBACK <error) 



where: error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a calling sequence is : 

CALL SWAP ("A2", lER) 

Al, executing at level 1, swaps in A2 
at level 2. 



CALL 



CALL 



CALL 



CALL 



SWAP ("A3", lER) 



BACK 



SWAP ("A4", lER) 



EBACK (lER) 



A2, executing at level 2, swaps in A3 
at level 3. 



A3 at level 3 swaps to disk and brings 
back A 2 at level 2. 



A2 at level 2 swaps in A4 at level 3. 



A4 at level 3 swaps to disk and brings 
back A2 at level 2. 
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Program Chaining (CHAIN, FCHAN) 

The currently executing program can cause its core imjige to be overwritten by another program 
on disk when the user issues a call to either the CHAIN routine or the FCHAN routine. The 
formats of the CHAIN and FCHAN calls are: 

CALL CHAIN ( "filename ", error ) 

CALL FCHAN ( "filename" ) 

where: filename is the name of the save file to be executed next. The execution level is 
the same as that of the caller's. 

error is an integer variable which will return one of the error codes upon com- 
pletion of the call. 

An example of a call to CHAIN and a call to FCHAN is: 

CALL CHAIN ("AA", lER) 

CALL FCHAN ("ABC") 
Returning to Level Zero 

The FORTRAN IV statement STOP, or call to the run time routine EXIT, will each cause the 
termination of a task or program and return to level zero, the CLl. 

The format of the STOP statement is: 

STOP { message 9 

where: message is an optional message which can be printed upon termination of the 
executing task or program. 

The call to EXIT has the format: 

CALL EXIT 



OVERLAYS 



Overlays may be used when core is not large enough to accommodate an entire user program. 
During loading of relocatable binaries, two files are created rather than a single save file that would 
have to be brought into core in its entirety for execution. One file is the save file which contains 
the root program to be brought into core. The other is an overlay file that will remain on disk. 
When an overlay is referenced either from the root program or from another overlay that was 
previously brought into core, the overlay will be brought into core. 

The save file contains, in addition to the root program, a directory of the overlay file and a se- 
ries of overlay areas. Each overlay area in the save file corresponds to an overlay segment in 
the overlay file. Each overlay area in the save file represents an area of core that will accom- 
modate a single overlay. Each overlay segment in the overlay file may contain up to 256 
(decimal) overlays. Each overlay area in the save file is large enough to accommodate the 
largest overlay in that overlay segment. Only one overlay of an overlay segment may re- 
side in core at a given time. On the save file, up to 128 (decimal) overlay areas may be 
allocated. They are designated through 127. 

When loading relocatable binaries, those binaries that make up an overlay area are enclosed 
in square brackets in the RLDR command line. Separate overlays of the overlay area are 
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OVERLAYS ( Continued) 

indicated by commas. The format of the RLDR command when overlays are included is: 



/"r'aotname , \ 

-0 \l overlay -are a ]j 



„. „„ frootname, 
RLDR rootname„ / - — —, 1 



rootname^ 



libraries 1 



L [ overlay -are a ]j (^ [ overlay -area ^ _ j^ ]j 

where: rootname^ is the name of the main FORTRAN program in relocatable binarv. 
u 

other rootnames are names of relocatable binaries to become part of the save' file program. 

each overlay -area contains the names of relocatable binaries that are overlays or part of 
of a single overlay. 

To see how save and overlay files are created, compare the following examples of RLDR commands: 



RLDR A B C D E F libraries ) 



A.SV 



system 



A, B, C, D, E, and F must all be in core during execution. 



system 



A.SV 



system 



RLDR A B [C, D] [E, F] libraries \ 

A.OL 



overlay area 1 Areas to be used for 
overlays during exe- 



overlay area cution. 

V 



system 



Root program in 
V core during 
' execution 



F 

e" 



D 
C~ 



»— node 1 



nouC 



overlay segment 1 



overlay segment 
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OVERLAYS (Continued) 

RLDR A B [C, D E, F] libraries ) 

A.SV 

system 



overlay area 



B 



) overlay area 



l^ :\i 

\ system | 



^ root program 



A.OL 




overlay segment 



node 



Note in the previous example that two or more relocatable binaries may be loaded as a single overlay 
within an overlay area. In this case, D and E are loaded as a single overlay, since there is no 
comma between the relocatable binaries in the command line. 



A.SA' 



RLDR A [C, D] B [H, F] libraries) 



A.OL 



system 


overlay 


area 


1 


B 


overlay 


area 





A 


syste 


m 





F 


) 


E 




D 




~~C 


/ 




J ^- 



overlay segment 1 



node 1 



uVeiicty scgliieliL u 



node 



Note in the example above that tasks and overlay areas may be interspersed after the main 
FORTRAN program is loaded. 

Within each overlay segment in the overlay file, each overlay occupies an equal area. The area is a 
multiple of 400 octal locations and is large enough to accommodate the largest overlay of the overlay 
segment. For instance, if there are four overlays, OVl, 0V2, 0V3, and OV4 in an overlay segment: 

1000^ 
400^ 








0V2 








0V3 










0V4 




OVl 



then each overlay will be allotted 1000 octal locations to accommodate the largest overlay: 
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OVERLAYS (Continued) 




Overlay segment containing the four overlays 



OVl J 



node 



The overlay file is created as a contiguous file. This allows the operating system to use multiple 
block reads (moving head disk)* for faster loading of overlays. As a result, each overlay vifithin 
an overlay area is the same size. This is not a restriction on the user, however, as the reloca- 
table loader will automatically adjust each overlay to be equal in size to the multiple of octal 400 
that will accommodate the largest overlay within the overlay area. For better disk space utili- 
zation, though, the user should put overlays of approximately the same size within the same over- 
lay area. 

Overlays maintained in the overlay file are never altered during the execution of a program. 
Each time an overlay is loaded into core in the overlay area, it is in its original form whether 
or not it contains a non-reentrant routine. Xo part of an overwritten overlay i? ever saved. 

Once an overlay file has been loaded and resides on disk, it can Ix; altered only by being reloaded 
using RLDR or, if desired, one or more overlays can be changed using the overlay loader, OVLDR, 
described in a later section. 

Nnmherinfi of Overlavs within an Overlav File 



Overlays are numbered octally within an overlay file. There may be up to 128 decimal overlay 
segments within an overlay file (numbered - 177q), and there may be up to 256 decimal overlays 
within each overlay segment of the overlay file (r :mbered - 377q). The overlay is referenced 
by a word that identifies the node (overlay area) - . \ the overlay within the area. Thus overla\' 
1 of area is numbered 1 while overlay 1 of area 2 is numbered lOOlo- The chart on the 
following page illustrates the numbering scheme in referencing a particular overlay within an 
overlay file. 

In FORTRAN IV, each overlay of each segment i given a unique name in an OVERLAY statement 
(see page 5 - 8), and is referenced in cells by that name, so that it is not necessary to reference 
an overlay by number. 



*While use of contiguous files enables faster loading from moving head disks, this does not imply 
that overlays are only used when the system configuration includes a moving head disk. 
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Numbering of Overlays Within an Overlay File (Continued) 



Segment Number 




Overlays 


"Within This Segment 














1 2 


3 4 ... 


375 


376 


377 


1 


400 


401 402 


403 404 ... 


775 


776 


777 


2 


1000 


1001 1002 


1003 1004 . . . 


1375 


1376 


1377 


3 


1400 


1401 1402 


1403 1404 . . . 


1775 


1776 


1777 


4 


2000 


2001 2002 


2003 2004 . . . 


2375 


2376 


2377 


126 


77000 


77001 77002 


77003 77004 . . . 


7-375 


77376 


77377 


127 


77400 


77401 77402 


77403 77404 • . • 


77775 


77776 


77777 



Overlays in Single or Multiple Task Environments 

Overlays may exist in either single or multiple task environments. In either environment, the 
overlay must be assigned a name in an OVERLAY statement, the overlay file must be opened 
by a call to OVOPN before an overlay file can be loaded into core, and the opened file is closed 
by a call to CLOSE. 

H Over, in a multiple task environment, overlays and overlay areas can be shared by two or 
more tasks. This requires that checks be made upon loading the overlay to determine whether 
or not the overlay area is already in use. A task waiting for an overlay area that is in use must 
be suspended until the overlay area is released. Thus, different loading routines are called in 
single task and multiple task environments, and in a multiple task environment, a call to a 
routine that releases an overlay after use must be made. 

Features common to both single and multiple task environment are discussed first in sections 
immediately following; then the differing features of single task loading and multiple task loading 
and the release of overlay areas are described. 

Naming an Overlay (OVERLAY) 

In both single and multiple task environments, each overlay must have an overlay name assigned 
to it. Overlay names are assigned in the OVERLAY statement, which has the format: 



where: 



OVERLAY overlayname 
overlayname is the name of an overlay. 



An OVERLAY statement must be the first statement (except for possible COMPILER DOUBLE PRECISION, 
COMPILER NOSTACK, or CHANTASK statements) in one of the program units belonging to an overlay. 
If a single overlay was created from two or more relocatable binaries, each of which contained an 
OVERLAY statement, each overlayname s pecified in these statements is associated with that overlay. 
The overlay can then be referenced by any one of the names. 

An overlay name is an external symbol (like the names of subprograms) and must be unique 
within its first five characters from all other external symbols and all reserved words. Overlay 
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Naming an Overlay (OVERLAY) (Continued) 

names are referenced when loading overlays or releasing overlay areas. Each overlay name 
must be declared EXTERNAL in any program unit in which it is referenced. 

Opening an Overlay File (OVOPN) 

In both single and multiple task environments, the overlay file associated with a program using 
overlays must be opened by execution of a call to the OVOPN routine before any overlays can 
be loaded. The format of the call to OVOPN is: 

CALL OVOPN ( channel , filename , error) 

where: channel is an integer variable whose value specifies the channel on which the overlay 

file is to be opened. 

filename is the name of the overlay file to be opened (this file name should end with 
the extension . OL). 

error is an integer variable which will return one of the error codes upon completioi 

o;' '■ call. 

-\ii i.,iample of a call to OVOPN is: 

CALL OVOPN (JCHAN, ■pLALOL', IhA) 

ff the value of ICiiAN were 7, o.uriay ■^■\], uL vould be ope.nec: on channel ', with iMR 

recct'ine the error code upon completioi^ : t M. 

Closi!:;; an i.A'orlay File ,LL( -ij- • 



In both sini:;.' and nmltipie task cnvironniencs, ea h overlay jilt is clo d in the same \\:^v anv 
file is clused. An overlay file is closed by excci uon of a ral] to the CeOSE routine, :•.■ call 
to CLOSE has the format: 

CALL C LOS ii (channel, _j3r) 

where: channel is an integer variable or c-i; ,,' vhose value specifies the channel nunibe- ■-; 

tiie overlay file to be closed. 

t-'iTor is an integer variable whic!; ■•jll return one of the error codes upon completion 
of the call. 

An example of a call to CLOSE is: 

CALL CLOSE n, lER) 

Loading Overlays in a Single Tai-k ;:nvironmcnt C'VLOD) 

In a single task environment, an overlay js joarled by execution of a call to the OVLOD routi-e. 
The call has the format: 

CALL OVLOD ( elianncl , overlay , conditional -flag , error ) 

-vhere: channe l is an integer var-L'hle or constant whose --alue if the number of the channel 

on which the overlay file has been opened. 

overlay is the ui'ir.^ of thp overlav v.'hich is to be loaded. 
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Loading Overlays in a Single Task Environment (OVLODX Continued) 

conditional-flag is an Integer variable or constant whose value indicates conditional 
or unconditional loading. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An unconditional load loads a user overlay regardless of whether the overlay is present in core 
or not. This permits the initializing of non-reentrant code. A conditional overlay load request, 
on the other hand, causes a user overlay to be loaded only if it is not already core resident. 
Conditional loading saves time in some cases but should be used only when overlays are 
reentrant. For variable conditional-flag , the value zero specifies unconditional loading and 
a non-zero value specifies conditional loading. 

Associated with each overlay is an overlay use count (OUC) that contains a value indicating whether 
or not the overlay is core resident. If a conditional load has been specified, the OUC is checked. If 
the OUC contains zero, the overlay may not reside in core or may be core resident but not in use; if 
the OUC contains one, the overlay is core resident. The conditions for toading an overlay depend upon 
the state of the OUC and the conditional flag as given below. 

1. If the load request is conditional (flag?* 0) and if the area is free (OUC=0), the 
OUC is incremented, the overlay is loaded, and the error return is set to 1 to 
indicate the overlay has been loaded. 

2. If the load request is conditional and if the overlay area already contains the re- 
quested overlay (OUC= 1), the overlay remains in the area, the OUC is decremented, 
and the error return is set to 1 to indicate that the overlay has been loaded. 

3. If the load request is unconditional, the OUC is set to 1, the overlay is loaded and 
the error return is set to 1 to indicate that the overlay has been loaded. 

4. If for any reason the overlay cannot be loaded, an appropriate error code is set 
and a return is made to the calling program. 

The conditions specified above are shown in the following chart. 



CALL OVLOD 



No 



OUC = 1 



Is load request Conditional? 
(flag i 0) 



( 



Yes 



Is area free? 
(OUC = 0) 



> 



No , OUC > 



Yes 



OUC = OUC + 1 
Overlay is Loaded 
Error = I 



OUC = OUC - 1 



Error = 1 
Overlay is Loaded 
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Loading Overlays in a Single Task Environment (OVLOD) (Continued) 

An exam'^le of 3 call to '^^'i^ ofi io- 

CALL OVLOD (JCHAN, 0V3, IFLAG, lERR) 

Loading an Overlay in a Multiple Task Environment (FOVLD) 

In a multiple task environment, an overlajf is loatled b^r execution of a call to the FOVLD routine; 
the call has the format: 

CALL FOVLD ( channel , overlay , c onditional -f lag , error) 

where: channel is an integer variable or constant whose value is the number of the channel on 

which the overlay file was opened. 

overlay is the name of the overlay to be loaded. 

conditional-flag is an Integer variable or constant whose value indicates whether the 
load is to be conditional or unconditional. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

As in the single task environment, the loading of an overlay depends upon the state of the conditional 
flag and the overlay use count (OUC). However, since overlays and overlay areas can be shared 
fay two or more tasks, the conditions for loading are somewhat more complex. 

When a task causes an overlay to be loaded, the task is suspended until the loading process is 
completed. When a task tries to load an overlay into an overlay area and cannot because the overlay 
area is already in use, the task is suspended until the overlay area is freed and the desired overlay 
is then successfully loaded. If more than one task is suspended while waiting for an overlay area 
to be freed, the task with the highest priority waiting for the overlay area has its desired overlay 
loaded when the overlay area becomes free. The task then is readied when loading is complete. 

The overlay use count is incremented each time a task requests an overlay load and is de- 
cremented each time a task causes the overlay to be released (see the section on FOVRL). 
Since more than one task can use an overlay, the OUC may be greater than 1. An overlay area 
is only free when the OUC goes to 0. The conditions for loading an overlay in a multiple task 
environment are as follows : 

1. If the load request is conditional (flag/ 0) and if the area is free (OUC=0), 
then the OUC is incremented, the overlay is loaded, and the error return is 
set to 1 to indicate the overlay has been loaded. 

2. If the load request is conditional, and if the area is not free but already contains 
the requested overlay, the overlay remains in the area, the OUC is incremented, 
and the error return is set to 1 to indicate that the overlay has been loaded. 

3. If the load request is conditional and the area is not free and does not contain 
the requested overlay, the caller is suspended until the area is freed. 

4. If the load request is unconditional (flag=0), and if tlie area is free (OUC=0), 
the OUC is incremented and f he overlay is loaded regardless of whether it is 
core resident or not. 

5. If the load request is unconditional and if the OUC has not gone to zero freeing 
the area, the callinii tas>- i'; suspended until the area becomes free. 
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Loading an Overlay in a Multiple Task Environment (FOVLD) (Continued) 



6. If for any reason the overlay cannot be successfully loaded, the error indicator will be 
set to the appropriate error code. 

TJ conditions specified above are shown in the following flow chart. 



CALL FOVLD 



No 



( 



Is load conditional? 
(flag i 0) 



Yes 



Is Area Free? 



\ Yes 



No 



Is area free ? 
(OUC =0) . 



No 



Yes 



Overlay Is Loaded 
OUC = OUC + 1 
Error = 1 



No 



< 



Is requested overlay \ 
occupying area ? / ^ 



Yes 



OUC = OUC +1 
Error = 1 



Caller is suspended until 
area is freed 



When a task causes an overlay to be loaded, the task is suspended during the loading process 
as it would be for any other I/O operation. For those cases in which no loading occurs, and the 
task does not have to wait for an overlay area to become available, the task is not suspended. 

An example of a call to FOVLD is: 

CALL FOVLD (ICHAN, lOV, ICON, lER) 

Releasing an Overlay Area (FOVRL) 

All overlay loads (FOVLD) in the multiple task environment must eventually be paired with an 
overlay release or the area will be reserved indefinitely. An overlay area can be released from 
outside of the overlay by the execution of a call to the FOVRL routine. The call to FOVRL has 
the format: 

CALL FOVRL ( overlay , error ) 

where: overlay Is the name (or any one of the names) of the overlay resident within the 

overlay area to be released. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 
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Releasing an Overlay Area (FOVRL )(Continued) 

Execution of a call to FOVRL causes the OUC for that overlay area to be decremented. (The 
overlay area is only freed when OUC goes to zero. ) If an overlay other than the one resident in 
the overlay area is named by overlay , an error condition results and the overlay area is not 
released. An example of a call to FOVRL is: 

CALL FOVRL (AOVLY, lER) 

Releasing an Overlay (OVKIL, OVKIX, OVEXT, OVEXX) 

Overlays may be released from inside the overlay area, either from the routine in which 
the overlay was named or from some other routine within the overlay. 

A call to OVKIL can be made from the rnntinp in whjch the overla'^ was nam.ed 'OVERLA.Y 
statement) and causes the overlay to be released and the task containing the overlay to be killed. 
The format of the call is: 

CALL OVKIL ( overlay ) 

where: overlay is the name of the overlay (specified in an OVERLAY statement). 

A call to OVKIX is made from a routine outside that in which the overlay was named. The 
OVKIX routine causes the overlay to be released and the task containing the overlay to be killed. 
The format of the call to OVKIX is: 

CALL OVKIX ( overlay ) 

where : overlay is the name of the overlay. 

A call to OVEXT can be made from the routine in which the overlay is named. It causes the 
overlay to be released and provides a return location. The format of the call is: 

CALL OVEXT ( overlay , external -label ) I 

where: overlay is the name of the overlay. 

external -label is t he external label to which return is made upon completion of the call. | 

A call to OVEXX is made from outside the routine in which the overlay is named. OVEXX 
causes the overlay to be released and provides a return location. The format of the call is; 



CALL OVEXX ( overlay , external -label ) 
where: overlay is the name of the overlay to be released. 



I 



external -label is the external label to which return is made upon completion of I 

the call. 
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The Overlay Loader (OVLDR) 

It is possible to replace one or more overlays within an overlay file. To do so, a file of replacement 
overlays must be loaded using the overlay loader, which is invoked with the command OVLDR. When 
the replacement file of overlays has been loaded, overlays witliiii the current overlay file may be re- 
placed by overlays in the replacement file, using the command REPLACE. The replacement of over- 
lays is described in Appendix D in thessection, OPERATION UNDER REXDS. 
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CHAPTER 6 
REALTIME CLOCK AND CALENDAR 



Systems with a Real Time Clock (RTC) maintain a system clock and calendar for scheduling 
task activities on a time-of-day basis. Tasks may obtain or set the correct time in seconds, 
minutes, and hours or the current date in month, day and year. Tasks may also synchronize 
their activities with the real time clock for periods of time as short as one millisecond each. 

Six calls are available to permit the system to keep track of the time of day and current date. 
Dates are alwavs referenced as month/day/year. The time is always given using a 24 -hour 
clock. The six calls are: 



CALL FSTIM - set the time of day 

CALL STIME - set the time of day 

CALL TIME - get the time of day 

CALL FGTIM - get the time of day 

CALL DATE - get the current date 

CALL SDATE - set the current date 

Setting the Real Time Clock (FSTIM ) 

The real time clock can be set using the run time routine FSTIM. Users may access the real 
time clock in both single and multiple task environments. The format of the call to FSTIM is: 

CALL FSTIM ( hour , minute, second ) 

where: hour is an integer variable or constant in the range to 23. 

minute is an integer variable or constant in the range to 59. 

second is an integer variable or constant in the range to 59. 

If an attempt is made to set a time outside the specified legal range, a run time error occurs. 
The clock used is a 24-hour clock. An example of a call to FSTIM is: 

CALL FSTIM (7, 25, 11) 

Setting the Real Time Clock (STIME) 

A call to the STIME routine allows the user to set the Real Time Clock. The format of the call 
is: 

CALL STIME ( array , error ) 

where: array i s a three-element integer array specifying the time to be set in the order 

of hours, minutes, and seconds. 
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Setting the Real Time Clock (STIME) (Continued) 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to STIME is: 

CALL STIME (lAR, lER) 

Getting the Time of Day (TIME) 

The time of day can be obtained in the form of a three -element array by a call to TIME which has 
the format: 

CALL TIME ( time -array , error ) 

where: time -array is the name of a three -element integer array that is set equal to the time. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to TIME is : 

CALL TIME (ITAR, lER) 

Getting the Time (FGTIM) 

The real time clock can be accessed to obtain the time using the routine FGTIM. The format of 
the call to FGTIM is : 

CALL FGTIM ( hour , minute, second) 

where: hour, minute, and second are integer variables which will return the current hour, 

minute and second. 

The current time will be given in terms of a 24-hour clock. An example of a call to FGTIM is: 

CALL FGTIM (IHR, IMIN, ISEC) 

Getting the Date (DATE) 

The date can be obtained in the form of a three -element array indicatii^ month, day, and year 
using a call to the DATE routine, which has the format: 

CALL DATE ( date -array , error ) 

where: date -array is the name of a three-element Integer array that is set equal to the date. 

error is an Integer variable which will return one of the error codes upon completion 
of the call. 

The first, second, and third elements of array date -array are set equal to the date expressed as 
month, day, and year. An example of a call to DATE is: 

CALL DATE (lAR, lER) 
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Setting the Date (SPATE) 

The user can set the date by issuing a call to the SDATE routine which has the format: 

CALL SDATE ( array , error ) 

where: array is a three -element integer array specifying month, day and year in that order. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

An example of a call to SDATE is: 

CALL SDATE (lAR, lER) 

User/System Clock Commands 

The user may execute a call to the routine DUCLK to define a user clock and a call to RUCLK 
to remove a user clock. The user clock is a software clock that is controlled at predefined 
intervals by the operating system clock. This user clock allows control to be given to a user- 
specified routine when each predefined interval lapses. A call is provided to GFREQ which 
permits the user to examine the Real Time Clock frequency. It is assumed that the user who 
is considering the definition of a user clock is familiar with the Real Time Disk Operating 
System. The following descriptions of calls to run time routines concerning the user/system 
clock commands should be read in conjunction with the section User/System Clock Commands 
in the RDOS manual (093-000075). 

Define a User Clock (DUCLK) 

A call to the DUCLK routine permits the definition of a user clock. When an interrupt is 
generated by the user clock, the environment becomes frozen as is, and control passes to a 
user-specified routine at a user-defined location. (This routine cannot be a FORTRAN routine. 

r? j-i ^ __._.! 11 > . ,n ... . ... 



Furthermore J no s^'^stern or tEsk calls ma^^ be issued f 
. UCEX and . IXMT . ) The format of the caU to DUCLK is: 

CALL DUCLK (ticks , name, error ) 

where: ticks is an integer variable or constant specifying the integer number of system 

RTC cycles which are to elapse between each user clock interrupt. 

name is the name of a non-FORTRAN routine to which control is passed upon- 
an interrupt and which must have been previously defined. 

error is an Integer variable which will return one of the error codes upon 
completion of the call. 

In unmapped systems, the task call . UCEX must be issued to exit from a user clock routine. 
Refer to the RDOS User's Manual for further information concerning the task call . UCEX. 

An example of a call to DUCLK is: 

CALL DUCLK (100, IROR, lER) 

Remove a User Clock (RUCLK) 

To remove a previously defined user clock from the system, the user may issue a call to the 
RUCLK routine. The call has the format: 

CALL RUCLK 
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Remove a User Clock (RUCLK) (Continued) 

The user clock must have been previously defined before it may be removed. 

Examine the System Real Time Clock Frequency (GFREQ) 

A call to the GFREQ routine permits the user to examine the Real Time Clock frequency. The 
format of the call is : 

CALL GFREQ ( variable) 

where: variable is an integer variable which will return the frequency of the Real Time 

Clock , either: 

- no real time clock in system 

1 - 10 HZ 

2 - 100 HZ 

3 - 1000 HZ 

4 - line frequency(60 cycles per second) 

5 - line frequency (50 cycles per second) 

An example of a call to GFREQ is : 
CALL GFREQ (IVAR) 
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CHAPTER 7 
FORHGROUND/BACKGROUND PROGRAMMING 



INTRODUCTORY CONCEPTS 

As discussed in Chapter 4, a multitasking environment increases the potential utilization of 
system resources. Multitask environments were understood to exist in a single program 
environment, and a program was considered to be an orderly collection of tasks. 

To increase system utilization still further, it is possible to have two programs sharing system 
resources concurrently, each with its own single or multi-tasking scheme. This sharing of 
system resources between two concurrently operating programs is called dual-programming. 

In dual-programming, one program is designated as operating in the background, the other as 
operating in the foreground. The two programs are independent of each other, each containing 
its own Task Scheduler. The two programs may have equal priority, or the foreground program 
may be designated as having the higher priority of the two. When the foreground program has 
the higher priority, control Is passed to the background program only when there are no ready 
tasks in the foreground. 

Although the foreground and background programs are independent of each other, they may 
communicate with each other. This is accomplished by defining a communications area within 
each program to be used in sending and receiving these messages. 

Foreground/Background Considerations in an Unmapped Environment 

Systems lacking the MMPU use software memory partitions to separate foreground and background 
program areas. These boundaries are user -defined at load time, using switches. 

In unmapped systems it is useful to include a user -written assembly language program, FHMA, to 
specify the highest memory location for a FORTRAN program in the background partition. This Is 
necessary in determining the size of the run time stack and In insuring ample memory space for a 
foreground program. FHMA is loaded just before the run time library and has the source code: 



.TITL FHMA 
. ENT FHMA 
FHMA =! (n) 
.END 



where n is a value between NMAX and the highest memory ad- 
dress available below RDOS 



In an unmapped, background -only environment, memory can be represented as: 



i RDOS 


■^ 


Unused address space 




: } 


User program and task 
scheduler ^ 




RDOS 





tcp of memory 

HMA (highest unused memory address) 
FHMA may be in this range 
NMAX (first location above loaded program) 



16 





FHMA should be set to an address in the range between NMAX and HMA. Then FHMA to HMA will be 
reserved for the foreground. 
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Foreground/Background Considerations In an Unmapped Environment (Continued) 

The RLDR command line (and all of its uses) is described in Appendix D, OPERATING PROCEDURES. 

Foreground/Background Considerations in a Mapped Environment 

Nova 840's, which can include a IX5C 8021 Memory Management and Protection Unit (MMPU), provide 
an ubsolute hardware protection to separate foregroui!' ; and background partitions. Foreground save 
and overlay files in a mapped environment are built in the same way that save and overlay files are 
built ill a single program environment, since an entire page zero and NREL memory is available for 
both programs. 

FOREGROUND/BACKGROUND CALLS 

The iol'owing calls to be used in foreground/background programming are applicable to both mapped 
and uni: apped systems, except for EXBG, which is used only in a mapped environment. 

Load and Execute a Foreground Program 

To load and execute a user program in the foreground, the user can issue a call to EXFG. This call 
can be made only from a background program; it is written in the following format: 

CALL EXFG ( filename , prior it^^ error ) 

where: filename is the name of the file to be executed In the foreground. 

priority Is the integer variable or constant that indicates the priority of the new foreground 
program, either: 

- foreground is of higher priority than background. 

1 - foreground and background are of the same priority. 

error is an integer variable that returns one of the error codes on completion of the call. 

If the partition requirements set in the RLDR command line would cause any portion of the background 
ni-on-i-am area to be overwritten- the fore^^round '^ro^'ram is not loaded. An example of an EXFG call is: 

CALL EXFG ("PROGl", 1 . lER) 

Checkpointing - Load and Execute a Background Program (EXBG) 

Checkpointing is the practice of suspending one background program (the checkpointed program) 
temporarily so that a new background program can be loaded and executed. Only a foreground program 
may issue the checkpoint call, EXBG, and the call may only be issued in a mapped environment. To 
checkpoint a background program, it must be checkpointable, i.e. , the program must perform no 
QTY I/O and must make no calls to RDOPR, DUCLK, FINTD, WAIT, or FDELY. 

The checkpointed program is restored to execution when the new background program has been executed 
or when either a CTRL A or CTRL C keyboard interrupt is detected. There may be only one check- 
pointed program; nested checkpoints are not allowed. 

If the program specified in EXBG is not given higher priority than the currently executing background 
program, the currently executing background program will complete execution before the program 
specified in EXBG is loaded and executed. Otherwise, the currently executing background program 
will be saved on disk until restored to execution. 
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Checkpointing - Load and Execute a Background Program (EXBG) (Continued) 

The call to EXBG has the format: 

CALL EXBG (filename , priority , error ) 

where: filename is the name of the file to be executed in the background. 

priority is an integer variable or constant that indicates the priority of the new background 
program, either: 

- same priority as present background program. 

1 - foreground and background are of the same priority. 

error is an integer variable that returns one of the error codes upon completion of the 
call. 

An example of a call Lo EXBG is: 

CALL EXBG ("MAIN6", 0, lER) 

See if a Foreground Program is Running (FGND) 

A call can be made to the FGND routine from a background program to determine whether or not a 
foreground program is currently running in the system. The call has the format: 

CALL FGND (foreground) 

where: foreground is an integer variable which returns a value of or 1: 

- a foreground program is executing 

1 - a foreground program is not executing 

An example of a call to FGND is: 

CALL FGND (IRUN) 

Define a Communications Area (ICMN) 

A call to the routine ICMN permits an area to be defined within a user program's address space which 
will be used for sending or receiving messages to or from another user program. The foreground and the 
background may each define one communications area. The call to ICMN has the format: 

CALL ICMN (array , length , error) 

where: array is an array specifying the communications area. 

length is an integer variable or constant specifying the size of the communications 
area in words. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

All example of a call to ICMN is: 

CALL ICMN (A, 10, lER) 
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Write a Message (WRCMN) 

A call to the routine WRCMN causes a message to be written by one program, either in the fore- 
ground or background, into the other program's communications area. The message that is sent 
may originate from anywhere within the sender program's address space. The format of the call 
to WRCMN is: 

CALL WRCMN (array , start word , number of words , error ) 

where: array is an array specifying the origin of the message to be sent to the other program's 
communications area. 

start word is an integer constant or variable specifying the word offset within the com- 
munications area to receive the message. 

number of words is an integer constant or variable specifying the number of words to be sent. 

error is an integer variable which will return one of the error codes upon completion of the 
call. 

Note that start word represents an offset in words. For example, an offset of five will be the fifth 
element of an integer array but will be the first word of the third element of a real array. 

An example of a call to WRCMN is: 

CALL WRCMN (L\R, 6, INUM, lER) 

Read a Message (RDCMN) 

A call to the RDCMN routine causes a message to be read by one program, either in the foreground 
or background, from the other program's communications area. The message may be received 
anywhere within the receiving program's address space. The format of the call to RDCMN is: 

CALL RDCMN (array , start word , number of words, error ) 

where: array is an array specifying the destination of the message sent from the other program's 
communications area. 

start word is an integer variable or constant specifying the word offset within the com- 
munications area where the message originates. 

number of words is an integer constant or variable specifying the number of words to be 
read. 

error is an integer variable which will return one of the error codes upon completion of 
the call. 

Write an Operator Message (WROPR) 

A call to the WROPR routine causes an output string to be written from either the foreground or 
background program areas to the system console, $TTO. The message consists of an ASCII string, 
less than or equal to 129 characters in length including the required terminator (carriage return, 
form feed, or null). The system will prefix two exclamation characters and the alphabetic B to 
the text string, or two exclamation characters and the alphabetic F to the text string. 

B = originating from the background 
F = originating from the foreground 
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Write an Operator Message (WROPR) (Continued) 

The format of the call to WROPR is: 

CALL WROPR (array , error ) 

where: array is the name of the array containing the text string to be written to $TTO. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 

The operator messages (text strings) output on the console after execution of this call will 
appear as follows: 

! IF text string ) or ! IBtext string ) 

WROPR must not be used if RDOS calls .TRDOP or .TWROP are used or if the RDOS OPCOM 
package is used. 

An example of a call to WROPR is: 

CALL WROPR (lAR, lER) 

Read an Operator Message (RDOPR) 

A call to the RDOPR routine causes an operator message to be transmitted from the system console, 
$TT1, to either the foreground or the background program. The first character in this message 
must be a CTRL E character (this is echoed as an exclamation character); the second character 
must be either of the alphaijetics F or B. These alphabetics (F and B) indicate which program is to 
receive the message: 

B = background program is the receiver 
F = foreground program is the reciever 

If some character other than F or B is typed, no further text string is accepted until a F or B is 
typed. If the user should try to transmit an unsolicited message (i.e. , one for which there is no 
outstanding read operator message call), the bell is sounded when CTRL E is depressed. The 
last character in the message string must be the carriage return terminator. The entire message 
string (including the terminator) can be up to 132 characters in length. The format of the call to 
RDOPR is: 

CALL RDOPR (array , nchar, error ) 

where: array is an integer array element specifying the location of the message area. 

nchar is an integer variable returning the number of characters transferrred (including 
the terminator). On an error, nchar is set to 0. 

error is an integer variable which will return one of the error codes upon completion 
of the call. 
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define 

a user clock 6-3 

communications are 7-3 
delete 

a file 3-5 

attributes 3-8 

link entries 3-6 

DELETE routine 3-5 
depth of resolution 3-3 
device 

characteristics 3-10, 3-12 

control 2-7 

default names 3-2 

get current name of 2-4 

master 2-5 

names 3-1 

non-SYSGENed 4-13, 3-20 

spoolable 3-11 

DFILW routine 3-5 

DIR routine 2-3 

direct block record I/O 3-14ff 

directory 

get current name of 2-4 

change the current 2-3 

maintenance routines Chapter 2 

default device 2-3 

information, obtaining 3-6 

initialize a 2-3 

specifier 2-3 

file attribute 3-8 

releasing a 2-4 
disable 

console interrupts 2-7 

spooling 2-8 
discontinue, spooling 2-8 
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disk 

blocks, number of 3-4 

bootstrap 2-6 

creating a file on 3-4 

deleting a file on 3-5 

discussion of 2 -Iff 

name of 3,-1 

partitions 2 -Iff 
display unit ($TTO, $TTT) 3-1, 3-18 
DLINK routine 3-6 
dollar sign ($) 3-1 
dormant state of a task 4-1 
dual-program environment Chapter 7 
dual-programming Chapter 7 
DUCLK routine 6-3 
DULNK routine 3-6 



EBACK routine 5-3 
enable 

console interrupts 3-18 

spooling 2-7, 3-11 
environment 

foreground /background 7-1 

mapped 7-1 

multiple task 5-6, 7-1 

single task 5-6, 7-1 
EOF 3-14ff 
EQUIV routine 3-2, 3-4 
error codes 3-2, 2-2 
error flags 3-2, 2-2 
error recovery procedures, 

warning 3-17 
examine 

a device's characteristic 3-8 

a file's attributes 3-8 

real time clock frequency 6-4 
execute a background program 7-2 
executing state of a task 4-1 
EXBG routine 7-2 
EXFG routine 7-2 



EXIT routine 4-11, 5-4 

extensions 

file name mnemonic 3-7 
to file names 3-1 



FBACK routine 5-3 

FCHAN routine 5-4 

FCLOS routine 3-13 

FDELY routine 4-8 

FOND routine 7-3 

FGTIM 6-2 

FHMA user-module 7-1 

file 

attribute displacement mnemonic 3-7 
attribute maintenance 3-8ff 
change attributes of 3-9 
directory information 3-6, 3-7 
examine attributes of 3-8 
I/O 3-lOff 
maintenance 3-4ff 
name 3-1 

parceling of space in a 2-5 
name displacement mnemonic 3-7 
size information update 3-8 
structures 1-3 

FINRV routine 2-9 

FINTD routine 2-9 

fixed head disk (DKO, DKl) 3-1 

FOPEN routine 3-11 

foreground/background programming 
in mapped environment Chapter 7 
introductory concepts Chapter 7 
in unmapped environment 7-1 

foreground program, executing a 7-2 

form feed, terminating a file name 3-1 

FORTRAN IV error messages 3-2, 2-2 

FOVLD routine 5-10 

FOVRL routine 5-11 

FQTASK routine 4-6 

free format I/O 3-16ff 
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freeing a channel 3-13 

frequency of the TRC 6-4 
FSTAT routine 3-9 
FSTIM routine 6-1 
FSWAP routine 5-1 
FTASK routine 4-4 
full initialization 2-3 



GCIN routine 3-10 

GCOUT routine 3-10 

GDIR routine 2 -4 

^^ attributes 3-8 

current date Chapter 6 
current default directory device 

name 2-4 
file directory information 3-6 
logical name of master device 2-5 
name of current I/O device 3-10 
time of day Chapter 6 
name of current system 2-6 

GFREQ routine 6-4 

global specifiers, temporary names 
names of 3-1 
temporary names 3-4 

GSYS routine 2-6 

GTATR routine 3-8 

hardware partition 7-2 

highest memory address (FHMA) 7-1 

high-speed paper tape 

punch ($PTP, $PTP1) 3-1 
reader ($PTR, $PTR1) 3-1 

HIPBOOT 2-6 

HOLD routine 4-8 

ICMN routine 7-3 
identification numbers 4-3 
identify user interrupt devices 2-8 
incremental plotter ($PLT, $PLT1) 3-1, 
3-18 



indeterminate error (0) 3-2 

INIT routine 2-3 

initializing a directory 3-3, Chapter 2 

input 

current device 3-10 

dual processor link ($DPI) 3-1 
interrupts 

disable 2-9 

enable 2 -9 

identifying device for 2-9 

message 2-8 

servicing user 2-8, 2-9 
intertask communication 4-12 
I/O, free format 3-16ff 
ITASK routine 4-4 
. KMT routine 3-20 



KILL routine 4-11 

keyboard, interrupts 3-18, 3-20 



levels of program segmentation 5-1,5-2 

link frequency 6-3 

line printer ($LPT, $LPT1) 3-1, 3-18 

link 

access attribute word 3-3, 3-7 

aliases 3-3 

chaining attributes 3-9 

entry 3-3, 3-6 

entry attribute 3-3, 3-8 

examining attributes 3-8 

resolution attribute 3-3, 3-8 

to file a 3-3 
load 

a foreground save file 7-2 

and execute a background program 7-2 

overlays 5-8ff 
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magnetic tape I/O 3-16ff 

MAP.DR 2-2 

master device 3-4, 2-5 

MDIR routine 2-5 

memory management and protection 

unit 7-1 
MMPU 7-1 
modes 

for opening a file 3-10 
modification of priorities 4-10 
moving head disk 3-1 
MTDIO routine 3-17 
MTOPD routine 3-16 
multiplexor (QTY) 3-1 
multiprogramming Chapter 7 
multitasking Chapter 4 
multitask monitor Chapter 4 



name 

a file 3-1, 3-2 



an n\rp-r}a\T fi Ip 



S-7 



a task 4-3 

of current system 2-6 

of master device 2-5 
node points 5-4ff 
non-SYSGE Ned devices 2-9, 4-13 
NREL memory 7-2 
null, terminating a file name 3-1 
numbering 

of bytes in last block 3-7 

of last block in file 3-7 

of significant file name characters 3-7 

of user overlays 5-6 
numerics, in file name 3-1 



obtaining 

file directory information 3-6, 3-7 
task states 4-11 



ODIS routine 2-7 

OEBL routine 2-7 

OPEN routine 3-10 

opening 

an overlay file 5-8 
cassette unit for free format 
I/O 3-16 

nnen 

a file (OPEN) 3-10 

a file (FOPEN) 3-11 

a file for appending (APPEND 3-12 
OUC 5-10 
output 

current devices 3-10 

dual-processor link ($DPO) 3-1 

spooling of 3-11, 3-18 
OVERFLOW routine E-3 
OVERLAY statement 5-7 
overlay use count (OUC) 5-8ff 
overlays 5-4ff 
overlay loader 5-14 
OVEXT routine 5-12 
OVEXX routine 5-12 
OVKIL routine 5-12 
OVKIX routine 5-12 
OVLDR command 5-14 
OVLOD routine 5-8 
OVOPN routine 5-8 
page zero memory 7-2 
paper tape 

reader ($TTR, TTRl) 3-1 

punch ($TTP, $TTPI) 3-1, 3-18 
parceling of disk file space 2-5 
parent partition 2-5 
partial initialization 2-3 
partition 

attribute 3-8 

discussion 2 -Iff 

primary 2 -Iff 

secondary 2 -Iff, 2-5 
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perform a disk bootstrap 2-6 
periodic execution 

of an overlay 4-6 

of a task 4-6 
permanent file attribute 3-8 
power failure, restart after 2-9 
power -up service 2-9 
preassigned channel numbers 3-2 
prevent 

interrupts 2-9 

spooling 2-7 
PRI routine 4-10 
priorities 

modification of 4-10 

numbers 4-3 

of foreground/background programs 
programs 7-1 

of tasks 4-1, 4-3 
program 

called 5-1 

calling 5-1 

chaining 5-1, 5-4 

overlays 5-4ff 

segmentation Chapter 5 

swapping 5-1 
programmable control of tasks Chap. 4 
pulses of the RTC 6-3 



QTY 3-1 

queuing of output data 2-7, 3-11 

quotation marks 3-1 



random file 

attribute 3-8 
creating a 3-10 
organization 1-3 
reading a 3-14 
writing a 3-15 



random mode 3-10 

random record size 3-10, 3-12 

RDBLK routine 3-14 

RDCMN routine 7-4 

RDOPR routine 7-4 

RDOS 

discussion Chapter 1, Chapter 7 

file names 3-1 

operating procedures App. D 

system error codes App. B 
RDRW routine 3-14 
reading 

a message from a program 7-4 

an operator message 7-4 

blocks 3-14 

-only mode 3-10, 3-12 

records 3-14 
read-protected file attribute 3-8 
RE ADR routine 3-14 
ready state of a task 4-1 
Real Time Clock Chapter 6 
Real Time Disk Operating System 

(see RDOS) 
Real Time Operating System (see RTOS) 
REC routine 4-12 
referencing 

channel numbers 3-2 

files 3-2 

files on magnetic tape 3-2 

files on cassette tape 3-2 

release an overlay area 5-11, 5-12 

release a directory 2-4 

RELSE routine 4-9 

remove , , ^ o 
a user clock 6-3 

interrupt devices 2-8 
RE NAM routine 3-5 
renaming a file (RENAME) 3-5 
REPLACE command 5-15 
reserved 

channel numbers 3-2 

device names 3-1 
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RESET routine 3-13 
resolution 

entry 3-3 

file attributes 3-3 
RESTART, SV 2-6 
restoring a swapped program 
RLDR command line 4-3, 5- 
RLSE routine 2-4 



5' 
2, 



■2 

7-2 



TTinf n-rncr-ram 



K-A 



RTC Chapter 6 
RTOS 

discussion Ciiapter 1 

file names 3-1 
RUCLK routine 6-3 
run time stack 7-1 
run time errors App, B 
save 



save file attribute 3-8 

saving channel status (see PART I) 

secondary partition 2-lff, 2-5 



segment of an overlap? file 



s-.s 



6-3 



3-20 



SDATE routine 
sequential 

creating 3-4 

opening 3-10 

mode 3-10, 3-4 

organization Chapter 1 
servicing, user interrupts 
set 

attributes 3-9 

calendar Chapter 6 

time of day 6-1 
sharing system resources 
significant characters in file name 3- 
simultaenous peripheral operation on- 
line (see spooling) 



7-1 



size 

of contiguous file 3-4 
of overlay file 5-4 
of random record 3-10 
of run time stack 7-1 
software memory partition 
SOS Chapter 1, App. D 
space, terminating a file name 



7-1 



3-1 
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SPEBL routine 2 
SPKIL routine 2 
spooling 

device 

disable 

enable 

stop 



2-7, 
2-8 

2-7 
2-8 



2-8, 3-11 



Stand-alond Operating System (see SOS) 

start a task 4-7 

starting logical address of a file 3-7 

START routine 4-7 

STAT routine 3-7 

status 

informaf inn f-rnm fi1<=> rMTrpntr\-r\T 

3-6, 3-7 

information on free format I/O 3-16ff 

information on tasks 4-1 
STIME routine 6-1 
STOP statement 5-4 
stop, a spool operation 3-19 
STTSK routine 4-11 
subdirectory 2-lff, 2-5 
SUSP routine 4-8 
suspended state of a task 4-1 
SWAP routine 5-1 
swapping programs 5-1 
SYS.DR 1-3, 2-lff 
system clock commands 6-3, 6-4 
system maintenance routines Chap. 2 
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system directory 

addition to 3-4 

deletion from 3-5 

discussion Chapter 1, 2-5 
system errors App. B 
system, get name of current 2-6 
system utilization, improve upon 
Chapter 4, Chapter 5 



TASK statement 4-4 

task concepts 4-1, 4-2, 4-3 

task control block 4-1 

task scheduler 4 -Iff, 7-1 

task states 4-1 

task status , obtaining 4-11 

task identification numbers 4-3 

task priority levels Chapter 4 

TCB 4-1 

temporary names of devices 3-4 

terminating 

a file name 3-1 

a task 4-11 
TIME routine 6-2 
TRNON routine 4-8 
TYPE statement 3-2 
type 

contiguous 3-4 

of a file 3-4 

of initialization 2-4 

random 3-4 

sequential 3-4 



user 

addressing mode Chapter 1 
attribute 3-8 
clock commands 6-3, 6-4 
file directory 3-7 
interrupt device 

identifying 3-20 

servicing 3-20 

removing 3-21 
servicing routines 3-20 
-shared 

reading 3-10, 3-12 

writing 3-10, 3-12 



vector table 3-21 

WAIT routine 4-9 
WRBLK routine 3-15 
WRCMN routine 7-4 

write -protected file attribute 3-8 

write 

a message between programs 7-3 
a multitask program 4-3 
an operator message 7-4 
blocks 3-14, 3-15 
-only mode 3-10, 3-12 
records 3-14 

WRITR routine 3-15 

WROPR routine 7-4 

WRTR routine 3-15 



UFD 3-7 

unmapped memory Chapters 7 and 1 

unre solvable links 3-6 

update current file's size 

information 3-8 
UPDATE routine 3-8 



XMT routine 4-12 
XMTW routine 4-12 
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APPENDIX A 
FORTRAN rV' SUMMARY 



The following pages contain a summary of each call to a run time routine which can be made under 
FORTRAN IV and each statement which is a part of the FORTRAN IV programming language. Beside 
each statement or call description is a row of five boxes specifying respectively: 

whether or not the call/statement is used under RDOS 
whether or not the call/statement is used under RTOS 
whether or not the call/statement is used under SOS 
a page reference within the manual 

An X signifies a positive answer as to Whether or not a particular call/statement can be used under 
a particular operating environment. The page reference column is divided into two sections, the 
first corresponding to PART 1 and the second corresponding to PART II. 

A summary of the format descriptions used is as follows: 



upper case letters 



lower case letters 



i } 
( ) 

() 



are essential parts of the format description and must be used 
exactly as they appear. 

are variable portions of the format descriptions; the user, when 
writing to correspond to the format, will insert his own variable 
name, device name, file name, etc. 

equals sign is a necessary part of the format description 

comma is an argument delimiter and is a necessary part of the 
format description. 

broken square brackets indicate optional portions of the format 
description. 

parentheses are used to delimit all arguments from the command 
word. (They are a necessary portion of the format description. ) 

quotation marks are used as ASCII string delimiters and are 
necessary parts of the format description. 

braces are used to denote alternate portions of the format 
description. 

three dots indicate that portions of the format description have 
been omitted. When they appear, the user should readily see 
what portions of the format are missing. 



A-1 



A -2 



FORTRAN IV STATEMENT SUMMARY 



Statement Format 



functionname ( argument , argument , . . . , argument ) = expression 
assigns the value of an expression to a specified function. 



variable = expression 

assigns the value of an expression to a specified variable. 



ACCEPT list 



values appearing within the list of the ACCEPT statement are 
input from the console. 



ASSIGN statementnumber TO variable 



causes a subsequent assigned GOTO statement to transfer control to 
the statement number specified within the ASSIGN statement 



BLOCK DATA 

defines a subprogram which contains only DIMENSION, DATA, 
COMMON, data-type, and EQUIVALENCE statements. 



CALL subroutine (arfnimpnt. arcriimpTif. 
, — 17 — " ' 



references a specified subroutine, replacing dummy 
arguments with actual arguments. 



CALL subroutine 



references a specified subroutine. 



CHANT A5K number -of -channels , number -of -tasks 

specifies the number of channels that may be open at any 
one time, and the number of tasks which can be simultane- 
ously active at one time. 



RDOS 



RTOS 



SOS 



Page Ref. 
Part I 



Page Ref. 
Part II 



COMMON name . . . name 

specifies names of variables and/or arrays to be placed in blank 
common. Tlie arrays may be dimensioned in the statement. 



COMMON block -name /list of names . . . /block -name / list of names 

specifies lists of arrays and/or variables to be placed in labeled 
common areas defined by block names. 
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Statement Format 
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COMPILER DOUBLE PRECISION 

forces all REAL variables and constants to DOUBLE PRECISION 
and all COMPLEX to DOUBLE PRECISION COMPLEX. 



7-3 



COMPILER NOSTACK 

causes all non-COMMON variables and arrays to be placed in a 
fixed location in memory rather than on a run time stack. 



7-7 



COMPLEX variable, variable. 



, variable 



7-3 



specifies single precision complex variables and/or arrays. The 
arrays may be dimensioned in the statement. 



CONTINUE 

causes continuation of the normal execution sequence. 



DATA variable -list / constant-list /. . . variable-list / constant -list / 
defines initial values for variables and array elements. 



DIMENSION arrayname ( subscript bounds) , . . . , arrayname 
( subscript bounds) 

specifies the subscript bounds of arrays for allocation of 
storage to the arrays. 



DO statementnumber variable = integer , integer {, integer ^ 
sets up a programming loop. 



X 



DOUBLE PRECISION variable , variable . . . . , variable 

specifies double precision variables and/or arrays. The 
array may be dimensioned in the statement. 



DOUBLE PRECISION COMPLEX variable, variable, . . . .variable 



specifies double precision complex variables and/or arrays. TTie 
arrays may be dimensioned in the statement. 



ENDFILE channel 



causes the file associated with the specified channel to be 
closed. 
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Statement Format 



EQUIVALENCE ( list-of -names ), ( list-of -names ). . . . ( list -of -names ) 
determines shared storage for variables and/or arra^^s. 



EXTERNAL subprogram -name , .... subprogram -name 

specifies subprograms as external to the program unit in 
which the specification is made. 



statementnumber FORMAT ( specification ) 

allows for the formatting of input and output data according 
to a specification. 



argument ) 



type FUNCTION name ( argument . . 
defines a function subprogram. 

GOTO s tatement -number 

causes transfer to a specified statement number. 



GOTO variable 

causes transfer to the address which is the current value 
of the specified variable. 



GOTO ( statement-number 1. s tatement -number 2 . . . . statement - 
numbern) . variable 

causes possible transfer to one of several statement numbers 
depending on the value of the specified variable. 



GOTO variable ( statement-numberl. statement-number2 , .... 
statement -numbern ) 

causes transfer to one of several possible statement numbers 
depending on the value of the specified variable after the last 
execution of an ASSIGN statement. 



IF (logical expression) statement 



causes either execution or bypassing of the specified statement 
depending on the specified logical expression being true or false. 
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Statement Format 



IF ( expression ) statement -number 1 , statement -number2 , 
statement-numbers 

causes transfer to one of three statement numbers depending 
on the value of the specified expression. 



INTEGER variable , variable, . . . variable 

specifies integer variables and/or arrays. The arrays may be 
dimensioned in the statement. 



LOGICAL variable, variable, . . . variable 



specifies logical variables and/or arrays. The arrays may be 
dimensioned in the statement. 



OVERLAY overlayname 
names an overlay. 



PARAMETER variable = constant. 



variable = constant 



assigns values to symbolic names, which may then be used 
like constants throughout the program. 



PAUSE { string ^ 

causes the program to cease execution with an optional 
message printed at the console. 



READ ( channel) { list-of -variables ^ 

READ ( channel, format) { list of -variables ^ 

reads from a device or file the data associated with the vari- 
ables in the list; formatting may be preset (unformatted I/O) 
or in accordance with a format specified by the user. 



READ ( channel , f format, ] (ERR) = statementnumber ) f list^ 

lEND/ 

READ (channel, f format , ^ (ERR\ = statementnumber . 

(END) 
(ERR) = statementnumber ) flist] 
(END/ 

reads information (as in READ description above) and also 
allows die user to gain control after an end -of -file or an I/O 
error at the driver level has been detected. 
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Statement Format 
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RTOS 
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READ BINARY (channel) list 

transfers binary data from an external medium. 


X 


X 


X 


6-20 




REAL variable, .... variable 

specifies real variables and/or arrays. The arrays may be 
dimensioned in the statement. 


X 


X 


X 


7-3 ■ 




RETURN f variable^ 

indicates the logical end of a subprogram, by default, causing 
a normal return when executed. Optionally, the user may cause 
an abnormal return. 


X 


X 


X 
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REWIND channel 

causes the file associated with the specified channel to be 
positioned at the initial record. 


X 


X 


X 


6-23 




STOP f string ^ 

causes an unconditional termination of a program's (or a 
task's) execution, and optionally causes a message to be 
printed at the console. 


X 


X 


X 


5-5 




SUBROUTINE name (argument, . . . , argument) 
defines a subroutine subprogram unit. 


X 


X 


X 


9-8 




TASK taskname 

assigns a name to a task program unit. 


X 


X 
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TYPE list 

causes output of the values of the variables specified in 
the statement. 


X 


X 


X 


6-20 




WRITE (channel) f list-of- variables =\ 

WRITE (channel, format) f list -of -variables ^ 

write to a device or file the data associated with the vari- 
ables in the list; formatting may be preset (unformatted I/O) 
or in accordance with a format specified by the user. 


X 


X 


X 
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WRITE (channel, f format, ^ (ENDI = 

lERR) 

WRITE ( channel, { format, ^ ^END) = 

(ERR/ 



writes information (as in WRITE description on previous page) 
and also allows the user to gain control after an end -of -file or 
after an I/O error has been detected. 



statementnumber ) {listj 
statementnumber , /END\ 

Ierr/ 

statementnumber plist^ 
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WRITE BINARY (channel) list 



transfers data in binary to an external medium. 
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Call Format 
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RTOS 


SOS 


Page Ref. 
Parti 


Page Ref. 
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CALL ABORT (id. error) 

causes termination of the task with the specified identification 
' number. 


X 


X 
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CALL AKILL (priority -number) 

terminates all ready or executing tasks with the 
speciiicu priority narrujer. 


X 


X 






4-11 


CALL APPEND (channel, fUename, ^mode.l error {.size 5) 

(array .f 
opens a fUe for appending 


X 


X 






3-12 


CALL ARDY (priority-number) 

causes all tasks of a given priority number to be readied. 


X 


X 






4-9 


CALL ASSOC (task, id, priority-no., error f.IASM^ 

associates a task with an identification number, 
without causing that task to go to ready state. 


X 








4-5 


CALL ASUSP (priority -number) 

causes all tasks of a given priority number to be suspended. 


X 


X 






4-9 


CALL BACK 

causes the last program that was swapped out to disk to be 
restored to core. 


X 








5-3 


CALL BCLR (word, position) 

sets a single bit in a word to zero. 


X 


X 


X 


9-10 




CALL BOOT (device, error) 
perform a disk bootstrap. 


X 








2-6 


CALL BSET (word, position) 

sets a single bit in a word to one. 


X 


X 


X 


9-10 




CALL CDIR (name, error) 

creates a subdirectory with a specified name. 


X 








2-5 


CALL CFILW (filename, type, f.size^ , error) 
creates an RDOS disk file. 


X 








3-4 
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FORTRAN IV RUN TIME CALL SLIMMARY 



Call Format 


RDOS 


RTOS 


SOS 


Page Ref. 
Part I 


Page Ref. 
Part II 


CALL CHAIN (filename, error) 

causes the current program's core image to be overwritten by 
another program loaded from disk. 


X 








5-4 


CALL CHLAT (channel, attributes, error) 

causes a change, addition, or deletion of Imk file access attributes. 


X 








3-9 


CALL CHNGE (identification, priority-number, error) 

causes the priority number of a specified task to be changed. 


X 








4-10 


CALL CHRST (channel, start-word) 

restores previously saved channel status to enable rereading and 
rewriting of records. 


X 






6-24 




CALL CHSAV (channel, start -word) 

saves the status of a channel to enable rereading or rewriting 
of records. 


X 






6-25 




CALL GHSTS (channel, array, error) 

returns a copy of the current directory status Information 
for a file on the specified channel. 


X 


X 


X 




3-6 


CALL CLOSE (channel, error) 
closes a file. 


X 


X 


X 




3-13, 5-8 


CALL CPART (name, size, error) 
creates a secondary partition. 


X 








2-5 


CALL DATE (date -array, error) 
gets the current date. 


X 


X 






6-2 


CALL DELETE (filename) 
deletes a file. 


X 








3-5 


CALL DFILW (filename, error) 
deletes an RDOS disk file. 


X 








3-5 


CALL DIR (directoryname, error) 

changes the current defauU directory device. 

i 


X 








2-3 



FORTRAN IV RUN TIME CALL SL'MMARY 



Call Format 


RDOS 


RTOS 


SOS 


Page Ref. 
Part I 


Page Ref. 
Part II 


CALL DLINK (namel, f name2, ^ error) 

creates a link entry in the current directory to a file in 
another directory. 


X 








3-6 


CALL DUCLK (ticks, address, error) 

permits the definition of a user clock. 


X 


X 






6-3 


CALL DULNK (name, error) 

deletes a link entry in the current directory. 


X 








3-6 


CALL EBACK (error) 

returns the last swapped program back to disk, or if there is no 
such program, causes return to level - the CLI. 


X 








5-3 


CALL EQUIV (namel, name2, error) 

assigns a new name to the multiple file device. 


X 








3-4 


CALL EXBG (name, priority, error) 

loads and executes a program in the background. 


X 








7-2 


CALL EXFG (name, priorif/, error) 


X 








7-2 


loads and executes a program in the foreground. 


CALL EXIT 

causes termination of executing task. 


X 


X 






5-4, 4-11 


CALL FBACK 

causes the last program that was swapped out to disk to 
be restored to core. 


X 








5-3 


CALL FCHAN (filename) 

causes current program's core Image to be overwritten by 
another program loaded from disk. 


X 








5-4 


CALL FCLOS (channel) 

closes a file on a specified channel and frees the channel. 


X 


X 


X 




3-13 


CALL FDELY (number -of -pulses) 

suspends a task for a specified amount of time. 


X 


X 






4-8 
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FORTRAN IV RUN TIME CALL SUMMARY 



Call Format 



CALL FGND ( foreground) 

determines whether or not a foreground program is runnmg. 

CALL FGTIM (hour , minute , second) 

gets the current time. ___^___ 



CALL FINRV (device -code) 

removes a user Interrupt device from the system interrupt 
vector table. 



CALL FINTD ( device -code, dct) 

specifies a device which is capable of generating interrupt 
requests. 



CALL FOPEN ( channel, filename f, "B"j f, recordbytes ^ ) 

assigns a specified channel to a file (device) and opens that 
file or device. 



CALL FOVLD ( channel, overlay, condition -flag , error ) 

loads overlays in a multiple task environment. 

CALL FOVRL ( overlay , error ) 

releases a specified overlay. 



CALL FQTASK ( overlayname , task, array, error {,t2£e_^- 
causes periodic execution of a task or overlay. 



CALL FSEEK (channel, recordnumber ) 
positions a random file to a given record. 



CALL FSTAT ( channel, attributes, error) 
sets or changes the attributes of a file. 



CALL FSTIM (hour, minute, second) 



sets the real time clock. 



RDOS 



RTOS 



SOS 



Page Ref. 
Part 1 



Page Ref. 
Part II 



6-24 



7-3 



6-2 



2-9 



2-9 



3-11 



5-10 



5-11 



4-6 



3-9 



6-1 



CALL FSWAP ( filename) 

causes the current program's core image to be saved on 
disk, and another program to be loaded from disk. 



5-1 
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FORTRAN IV RUN TIME CALL SUMMARY 



Call Format 


RDOS 


RTOS 


SOS 


Page Ref. 
Part I 


Page Ref. 
Part II 


CALL FTASK (taskname, error-return, priority -number f, IASM-1 ) 












activates a task by task name. 


X 


X 






4-4 


CALL GCIN (array) 












obtains the current input device name. 


X 


X 






3-10 














obtains the current output device name. 


X 


X 






3-10 


CALL GDIR (array, error) 












returns the name of the current default directory /device name. 


X 








2-4 


CALL GFREQ (variable) 












examines the Real Time Clock (RTC) frequency. 


X 


X 






6-4 


CALL GSYS (array, error) 












gets the name of the current system. 


X 








2-6 


CALL GTATR (channel, attributes, error) 












examines the attributes of a file. 


X 








3-8 


CALL HOLD (identification, error) 












causes the task with the specified identification number to 
be suspended. 


X 


X 






4-9 


CALL ICLR (word, position) 












sets a single bit in a word to zero. 


X 


X 


X 


9-10 




CALL ICMN (array, length, error) 












defines an area in a program's address space which will 
be used for sending and receiving messages. 


X 








7-3 


CALL INIT (directoryname, type, error) 












causes a directory to be initialized. 


X 


X 






2-3 


CALL ISET (word, position) 












sets a single bit in a word to one. 


X 


X 


X 


9-10 
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FORTRAN IV RUN TIME CALL SUMMARY 



Call Format 


RDOS 


RTOS 


SOS 


Page Ref. 
Parti 


Page Ref. 
Part II 




CALL ITASK (taskname, id, priority -number, error f.IASM^ ) 

activates a task and associates an id number with the task 
name. 


X 


X 






4-4 




CALL KILL 

kills the executing task. 


X 


X 






4-11 




CALL MDIR (array, error) 

obtains the current master device name. 


X 








2-5 




CALL MTDIO (channel, commandword, I/O-array, status, error f. county 

permits the operation of magnetic tape and cassette units 
on a machine level. 


X 


X 






3-17 




CALL MTOPD (channel, filename, mask, error) 

oDens a magnetic tape or cassette unit for free format I/O. 


X 


X 






3-16 




CALL ODIS 

disables console interrupts. 


X 








2-7 




CALL OEBL 

enables console interrupts. 


X 








2-7 




CALL OPEN (channel, filename, (mode,) error f, size^ ) 

t array,/ 

opens a file. 


X 


X 


X 




3-10 




CALL OVERFLOW (statementl, statement2 <„^,,> ) 

checks for floating point overflow and returns to statementl, or 
statement2 depending upon whether or not overflow occurred. 


X 


X 


X 




E-3 




CALL OVEXT (overlay, return -location) 

causes an overlay to be released and provides a return 
location). 


X 








5-12 




CALL OVEXX (overlay, return-location) 

causes an overlay to be released and provides a return 
location. 


X 








5-12 





FORTRAN IV RUN TIME CALL SUMMARY 



Call Format 



CALL OVKIL ( overlay ) 

causes an overlay to be released and the task containing 
the overlay to be killed. 



CALL OVKIX (overlay) 

causes an overlay to be released and causes the task containing 
the overlflv fn h*^ Vill^H 



CALL OVLOD (chaimeL overlay, conditional -flag, error ) 
loads overlays in a single task environment. 



CALL OVOPN ( channel, filename, error) 
opens an overlay file. 



CALL PRI (priority -number) 

changes the priority number of an executing task. 



CALL RDBLK ( channel , sblock. array, nblock, error p, iblk^ ) 

causes a series of blocks to be read from a contiguously or 
randomly organized file. 



^iijjij ivi^^ivii^ y axray, aLari-woru, numjer-oi-woras, error) 

reads a message from another program's communication 
area. 



CALL RDOPR (array, nbyte, error ) 
reads an operator message. 



CALL RDRW (channel, srec , array , nrec , error f, nbyt&[ ) 

causes a series of records to be read from a file into an 
array. 



CALL READR ( channel, srec , array , nrec , error |-, nbyte >) 

causes a series of records to be read from a file into an 
array. 



CALL REC ( message -key , message -destination) 
receives a one -word message. 



RDOS 



RTOS 



SOS 



Page Ref. 
Part I 



Page Ret. 
Part II 



5-12 



5-12 



4-10 



3-14 



7-4 



7-5 



3-14 



3-14 



4-12 



A-15 



FORTRAN IV RUN TIME CALL SUMMARY 



Call Format 



CALL RELSE ( identification, error) 

causes the task with the specified identification number to be readied. 



CALL RENAM (oldfilename, newfilename, error) 



renames a disk file. 



CALL RESET 

closes all open files. 



CALL RLSE ( directoryname, error ) 

closes and releases all files of a given directory. 
CALL RUCLK 

removes a previously defined user clock. 

CALL SDATE (array, error ) 

sets the date. 



CALL SPDIS (devicename, error) 

disables spooling on a specified device. 

CALL SPEBL (devicename, error) 

enables spooling on a specified device. 



CALL SPKIL (devicename, error) 

stops a spool operation which is currently being performed. 
CALL START (_id, time, unit , error ) 

starts a task after a specified time delay. 



CALL STAT (filename, array , error ) 
obtains current status of a given file. 



CALL STIME ( array, error ) 
sets the time of day. 



CALL STTSK (id, status, error) 



obtains current status of a task. 



RDOS 



RTOS 



SOS 



Page Ref. 
Part I 



Page Ref. 
Part II 



4-9 



3-5 



3-13 



2-4 



6-3 



6-3 



2-8 



2-7 



4-7 



3-7 



6-1 



4-11 



A-)6 



FORTRAN IV RUN TIME CALL SUMMARY 



Call Format 


RDOS 


RTOS 


SOS 


Page Ref. 
Part I 


Page Ref. 
Part II 


CALL SUSP 

causes an executing task to be suspended. 


X 


X 






4-8 


CALL SWAP (fUename, error) 

causes the current program's core image to be saved on 
disk, and another program to be loaded into core from disk. 


X 








5-1 


CALL TIME (time -array, error) 
gets the current time of day. 


X 


X 






6-2 


CALL TRNON (id, array, error) 
executes a task at a specified time. 


X 


X 






4-8 


CALL UPDATE (channel, error) 

permits the current file's size information to be updated. 


X 








3-8 


CALL WAIT (time, units, error) 

causes executing task to be suspended for specified amount of time. 


X 


X 






4-9 


CALL WRBLK (channel, sblock, array, nblock, error [, Iblk^ ) 

causes a series of blocks to be written into a disk file from an 
integer array. 


X 


X 






3-15 


CALL WRCMN (array, start-word, number-of -words, error) 

causes a message to be written by one program into another 
program's communication area. 


X 








7-4 


CALL WRITR (channel, srec, array, nrec, error f, nbyte^ ) 
causes a series of records to be written into a file. 


X 








3-15 


CALL WROPR (array, error) 
writes an operator message. 


X 








7-4 


CALL WRTR (channel, srec, array, nrec, error {, nbyte] ) 
causes a series of records to be written to a file. 


X 








3-15 


CALL XMT (message -key, message -source, error -return) 
transmits one -word messages between active tasks. 


X 


X 






4-12 
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FORTRAN IV RUN TIME CALL SUMMARY 



Call Format 



RDOS 



RTOS 



SOS 



Page Ref. 
Part 1 



Page Ref. 
Part II 



CALL XMTW ( message -key, message -source, error return ) 

transmits a one -word message between active tasks and waits 
until the message has been received. 



4-13 



A-IS 



APPENDIX B 
ERROR MESSAGES 



COMHLER ERROR MESSAGES 

Error checking by the FORTRAN IV compiler is quite extensive. Syntax, identifier usage conflict, 
and allowable variable types in arithmetic expressions are all thoroughly checked. 

Whenever possible, the statement scan is continued after an error is detected and noted. This is 
*uOiiC iOr noii-oyiitixctic errors m ueCiaration stdtenieiits aiiu cxpxessioii evaluaLioii. In the bcan ol 
FORMAT statements, recovery will be attempted under certain conditions. 

Obviously, one error may lead to later error messages because information which should have been 
available to the compiler at this later point is not available. 

An error message consists of one or two lines. The FORTRAN source line is typed preceding the 
first error detected, followed by the error code (s). Sometimes the FORTRAN source line given in 
the message is not the line containing the error but the succeeding one . This occurs because some 
errors are not detected until it has been verified that the line following is not a continuation line; by 
that time, the erroneous line is not available for output. 

In specification statements, certain errors are detected when aU declarations are being resolved and 
the first non-declaration line is in the buffer. Error messages resulting will be qualified by a second 
line specifying at least one of the identifiers involved in the error detected. 

Error messages 61 and 76 will be qualified with the statement number in question. 

Error messages are output to the teletype in all cases and to the listing device if different from the 
teletype. Error messages are always preceded by semicolons. A semicolon indicates to the 
assembler that the remainder of the line is a comment. Its use permits the listing and output devices 
(or the error and output devices) to be the same. 

Each error message terminates with a decimal character count. This refers to the last character 
scanned and indicates that the source error occurred somewhere witliin the statement at or prior to 
the character given in the character count. Character count does not equal the column number, except 
when no tabs precede the character in question. 

Some examples of error messages are: 
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COMHLER ERROR MESSAGES (Continued) 



; DATA CPl/l,l.D0/CP2/i.D-5, .^1D2/ 

;***050***ACHRA15 

(Presume in the example above that CPl and CP2 
are double precision complex variables. ) 

1 FORMAT(1HO,1P3E15.4, F8.2) 

***051***ACHRA03 
L2 

(The error, as indicated by the variable, L2, 
occurred in a specification statement preceding 
the FORMAT statement. ) 

; LI = R3+1.,GE. *R4 

;***013***ACHRA14 



In the list of error messages that follows: 

N - Means that the syntax error is not necessarily fatal. 

C - Means the scan of the statement is continued if the error is a syntax error. The 

continued scan applies only to syntax errors; errors at a diffferent level may or may 
not allow the scan to continue. 

In FORMAT statemeits, the error is generally fatal. In declaration statements, if a 
conflict occurs, the last declaration for the identifier is ignored. 
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05 

06. 

07 






^"-"^^ Meaning 

°° Working space exhausted. Fatal, but compiler 

continues. 

01 Multiply-defined parameter. 

02 N Mixed precision operands. 

03 N Unknown statement type. 

04 N Something other than blanks at statement end. 
Syntax error in DATA variable list. 
Syntax error in DATA literal list. 
Syntax error in statement function. 

10 C Missing integer in FORMAT. 

11 Error in parameter list of CALL. 

12 Array identifier not followed by a left or right 
parenthesis or comma. 

13 Illegal element in expression. 
1"^ Improper use of array name. 

16 Missing operator. 

1^ Illegal sequence of adjacent operators. 

20 Illegal element/operator when "(" or literal or 
variable expected. 

21 Premature statement end for an IF. 

22 Trailing "." missing in operator such as .EQ. 

23 Illegal continuation line (after comment or having 
label) . 

24 "." not followed by letter or number. 

25 C Format error. 

26 C Format Rr-rmr af-f-(=T- v-oT-iQa-t- /-.^i,vi4- f-u'^, -If- ._. T ^^ 

-- ' ^>_^wi^^ v,^iA4n_. ^±jj.iuj.& ^j diia zo 

together indicate an illegal character. These errors 
may repeat on one statement.) 

27 Abnormal end to FORMAT statement. 

^0 Expression didn't close at end of statement. 

31 Multiply-defined error. 

32 Variably-dimensioned array not a dummy. 

33 Variable list longer than value list in DATA. 
^■^ ^ Identifier in more than one type declaration. 

35 Unclosed DO loop in program. 

36 Common variable previously declared EXTERNAL, 
subprogram or dummy. 

37 C Dummy identifier predefined. 

40 C Dimension error. 

41 Improper statement terminating DO loop. 

'*2 C Variable dimension for main program array. 

43 Array size is greater than 32K, 

44 Parentheses don't close before statement end. 

45 Expected numeric operand for unary minus. 
Expected logical operand for .NOT. 
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46 



47 


N 


50 


C 


51 




52 




53 




54 





FORTRAN IV ERROR MESSAGES (Continued) 

C ode Meaning 

Illegal operand types for current operator. 
Data statement error; types don't match. 
Both members of equivalence pair in common. 
Beginning of common extended by equivalence. 
Irrecoverable foannat error. 

Statement function name in conflict with previous 
declaration. 
55 Multiply-defined dummy identifier in statement 

function. 

Too few subscripts in DATA or EQUIVALENCE. 
Subscripts out of bounds in DATA or EQUIVALENCE. 
Formal syntactical structure of statement is in 
error, punctuation is missing or an identifier is of 
the wrong variety. 
Undefined label. 

Attempt to load or store external or array. 
Array element can't be specified for a d\ammy array. 
Identifier in EXTERNAL previously declared in other 
than type declaration. 
A variable dimension is not a dummy. 
Variable on DATA list not in labeled COMMON. 
Two variables, neither in COMMON, are equivalenced. 
A subscript is not type integer. 

Wrong number of arguments for reserved name function. 
Wrong type of arguments for a reserved name function. 
Non-digit in label field. 

r~'3vv-i ^rrci v-o-f-i i -yrx "in l^Vif^T Tiffin. 

Improper statement in block data subprogram. 
Unreferenced label. 

Stack variable referenced in statement function. 
Variable stack has no room for all run time variables. 
Undeclared identifier in statement function expression. 
RETURN statement in main program. 
$ followed by something other than a digit. 
End of file without END. 
Wrong number of subscripts. 

Hollerith constant not ended at statement end. 
Truncated integer. Magnitude greater than 2**15-1 . 
Exponent error in real. 
Exponent error in double precision. 
Illegal character for FORTRAN statement. 
Literal error of one of the following types: (a) two 
operands not both literals, (b) two literals of differ- 
ent types, or(c) source line is ( literal , literal 
operator where: operator is not a right parenthesis. 
140-160 Compiler errors for debugging only. 
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56 


C 


57 


C 


60 


C 


61 




62 




63 




64 


C 


65 


C 


66 




67 




70 




71 




72 




73 


N 


74 


N 


75 




76 


N 


77 




100 


C 


101 




102 




104 




105 




106 




111 




112 


C 


114 


C 


115 


C 


116 


C 


120 





FORTRAN IV RUN-TIME ERROR MESSAGES 



Error Number Meaning 

1 Stack overflow 

2 Computed GOTO error 
4 Division by zero 

6 Integer power error (illegal or overflow) 

7 Floating point underflow. 

8 Floating point overflow 

9 Illegal format syntax 
11 Logic conversion error 

13 Number conversion error 

14 I/O error 

15 Field error (i.e., F5.10, E5.4, etc.) 
15 Square root of negative number 

17 Log of negative number 

18 Channel not open 

19 Channel already open 

20 No channels available 

21 System exceptional status * 

24 Exponential over/underflow 

25 Array element out of bounds 

26 Negative base for floating-point power 

27 Number stack, overflow 

28 BACKSPACE not implemented 

29 Attempt to restore status of channel when the 

status was not saved. 

30 Queued task error. 

31 Seek on a non-random file. 

32 Overlay aborted 

33 Illegal argument 

34 Delete error (file open) 

35 Overlay error in overlay kill. 

36 Undefined entry. ** 



* This error is generated when a system-related function (e.g., setting 
time) encounters an error (e.g., invalid time) and has no way to return 
an error indication to the FORTRAN program. Note that 
CALL FSTIM (hour, min , sec ) cannot indicate the error. However, 
CALL STIME ( array , ierror ) provides for an error and consequently, pro- 
cessing continues. 

** This error occurs when an attempt is made to call a subroutine that was 
not loaded. 
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FORTRAN 


RDOS 


Code 


Code 







1 




2 




3 





4 


1 


5 


2 


6 


3 


7 


4 


8 


5 


9 


6 


10 


7 


11 


10 


12 


11 


13 


12 


14 


13 


15 


14 


16 


15 


17 


16 


18 


17 


19 


20 


20 


21 


21 


22 


22 


23 


23 


24 


24 


25 


25 


26 


26 


27 


27 


30 


28 


31 


29. 


32 


30 


33 


31 


34 


32 


35 


33 


36 


34 


37 


35 


40 


36 


41 


37 


42 


38 


43 


39 


44 


40 


45 


41 


46 


42 


47 


43 


50 


44 


51 



SYSTEM ERROR MESSAGES 



Meaning 

Indeterminate error 
Call successfully completed 
Activity in progress 
Illegal channel number 
Illegal file name 
Illegal system command 
Illegal command for device 
Not a saved file 

Attempt to write an existent file. 
End of file. 

Attempt to read a read-protected file. 
Attempt to write a write-protected file. 
Attempt to create an existent file. 
Attempt to reference a non-existent file. 
Attempt to alter a permanent file. 
Illegal attempt to change file attributes. 
Attempt to reference an unopened file 
(not assigned) 
(not assigned) 
(not assigned) 

Attempt to use a channel already in use 
Line limit exceeded on read or write line 
Attempt to restore a non-existent image. 
Parity error on read line 
Trying to push too many levels 
Attempt to allocate more memory than available 
Out of file space 
File read error 
Unit not properly selected 
Illegal starting address 
Attempt to read into system area 
File accessible by direct block I/O only 
Files specified on different directories 
Illegal device code 
Illegal overlay number 

File is not accessible by direct block I/O 
Attempt to set illegal time or date 
Out of TCB's 

Message address is already in use 
File already squashed error 
Device already in system 

Insufficient number of free contiguous disk 
blocks 
QTY error 

Illegal information in task queue table. 
Attempt to open too many devices or directories 
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FORTRAN 


RDOS 


Code 


Code 


45 


52 


46 


53 


47 


54 


48 


55 


49 


56 


50 


57 


51 


60 


52 


61 


53 


62 


54 


63 




64 


56 


65 


57 


66 


58 


67 


59 


70 


60 


71 


61 


72 


62 


73 


63 


74 


64 


75 


65 


76 


66 


77 


67 


100 


68 


101 


69 


102 


70 


103 


71 


104 


72 


105 


73 


106 


74 


107 


75 


110 



Meaning 

Illegal directory specifier 

Directory specifier unknown 

Directory is too small 

Directory depth is exceeded 

Directory in use 

Link depth exceeded 

File is in use 

Task ID error 

Common size error 

Common usage error 

File position error 

Insufficient room in data channel map 

Directory/device not initialized 

No default directory 

Foreground already exists 

Error in partition set 

Directory in use by another program 

Not enough room for UFTs 

Illegal address 

Not a link entry 

Program to be checkpointed is not checkpointable, 

or attempt to create two outstanding checkpoints 

Error detected in SYS.DR 

Error detected in MAP.DR 

Ten second disk time-out occurred 

Entry not accessible via a link 

MCA request outstanding 

Incomplete MCA transmission/request 

System deadlock 

Input terminated by channel close 

Spool file(s) active 

Task not found for ABORT 
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APPENDIX G 
DGC FORTRAN VARIATIONS FROM STANDARD FORTRAN 



1. Comments may be placed on the same line with statements. The sjmtactical scan of the line ends 
at a semicolon (;) and comments may follow the semicolon delimiter. 

2. Variables may be typed DOUBLE PRECISION COMPLEX. 

3. When declaring arrays, upper and lower bounds may be given for subscripts of arrays; thus the 
lower bound of an array subscript does not have to be zero but can be any integer including negative 
integers. A colon delimits the lower from the upper bound. 

4. An array may have up to 128 dimensions. 

5. Subscripts of array elements in executable statements (other than lists of I/O statements) may be 
any form of expression whose value is type integer. 

6. String constants enclosed in quotation marks or in apostrophes may be used instead of Hollerith 
constants. 

7. Formatting includes the tabulation format descriptor, Tw, tab to column w. 

8. Abnormal returns are allowed from subprogram units. 

9. All variables not stored in COMMON are placed on a run-time stack. Any program that does 
not alter COMMON storage is therefore a reentrant program. 

10. Program units must be ordered as foUows: 

a. COMPILER DOUBLE PRECISION and COMPILER NOSTACK statements. 

b. OVERLAY and CHANTASK statements. 

c. PARAMETER statements. 

d. FUNCTION, SUBROUTINE, or TASK statement. 

e. Declaration statements, which begin with the keywords: COMMON, COMPLEX, DIMENSION, 
DOUBLE, EQUIVALENCE, EXTERNAL, INTEGER, LOGICAL, or REAL. 

f. Statement functions. (FORMAT statements and DATA initialization statements may be given 
in this area. ) 

g. Executable statements. (FORMAT statements and DATA initialization statements may be 
given in this area. ) 

11. Imbedded blanks are significant except when they appear in the name of a program variable or in 
the statement identifier GOTO (GO TO). 

12. Statement identifiers, operator names, and names of library functions are reserved and cannot be 
used as program variables. The reserved names are: 
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1 2. (Continued) 



.AND. 


DBLE 


.EOT. 


DCABS 


.EQ. 


DCCOS 


.FALSE. 


DCEXP 


.GE. 


DC LOG 


.GT. 


DCMPLX 


.LE. 


DC OS 


.LT. 


DCSIN 


• NE. 


DCSQRT 


• NOT. 


DEXP 


.OR. 


DFLOAT 


.TRUE. 


DIM 


ABS 


DIMENSION 


ACCEPT 


DLOG 


AIMAG 


DLOGIO 


AINT 


DMAXl 


A LOG 


DMINl 


ALOGIO 


DMOD 


AMAXIO 


DO 


AMAXl 


DOUBLE PRECISION 


AMINO 


DREAL 


AMINl 


DSIGN 


AMOD 


DSIN 


ASSIGN 


DSQRT 


ATAN 


DTAN 


ATAN2 


DTANH 


BINARY 


END 


BLOCK DATA 


ENDFILE 


CABS 


ENTRY 


CALL 


EQUIVALENCE 


CCOS 


ERR 


CEXP 


EXP 


CHANTASK 


EXTERNAL 


CLOG 


FLOAT 


CMPLX 


FORMAT 


COMMON 


FUNCTION 


COMPILER 


GOTO 


COMPLEX 


lABS 


CON]G 


lAND 


CONTINUE 


IDIM 


COS 


IDINT 


CSIN 


lEOR 


CSQRT 


IF 


DABS 


IFIX 


DAIMAG 


INT 


DATA 


INTEGER 


DATAN 


lOR 


DATAN2 


ISHIFT 


DATN2 


ISIGN 



ITEST 

LOGICAL 

MAXO 

MAXl 

MINO 

MINI 

MOD 

NOSTACK 

NOT 

OVERLAY 

PARAMETER 

PAUSE 

READ 

REAL 

RETURN 

REWIND 

SIGN 

SIN 

SINH 

SNGL 

SQRT 

STOP 

SUBROUTINE 

TAN 

TANH 

TASK 

TO 

TYPE 

WRITE 



Names identical to EKJC extended assembler mnemonics are not available for use as subprogram 
names. 

13. An assigned GO TO is treated as an unconditional GO TO. 

14. Statements with an X in column 1 are compiled only if the X option is true at compile time. 
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15. Generated code treats logical variables as full words, thus providing for 16-bit logical operations. 
When testing for a truth value, any non-zero word = .TRUE. 

16. Octal numbers can be read and written imdcr FORIVIAT control. 

17. Binary data can, be read and written using READ BINARY and WRITE BINARY statements. 

18. Unformatted I/O leaves all conversion between internal and external forms up to the I/O processor. 

19. Variable names may be up to 31 characters in length. 

20. Hollerith strings are permitted in the lists of I/O statements. 

21. Specific verbs, TYPE and ACCEPT, are used for teletype I/O. 

22. Combined input and output is allowed in the ACCEPT statement. 

23. Sw string field descriptor is annppted in FORMA.T s-occifications. 

24. Mixed arithmetic expressions combining Integer with real and/or double precision quantities 
arc accepted. 

25. Hollerith data may appear in integer arithmetic expressions and will be interpreted as integer data. 

26. Octal constants can jje specified in the FORTRAN source program as + d . . . dK, where each d 
is an octal digit. ^ "" ~ 

27. DATA initialization is provided for labeled COMMON only. 

28. Only COMMON variables can be EQUIVALENCed. 

29. DATA initiaUzation of labeled COMMON is ^wssible in any FORTRAN program or subprogram. 

30. Subprogram names must be unique within the first five characters (ANSI standard Is six). 

31. A repeat count cannot be used with a HoUerith constant in a DATA initialization statement. 

32. PARAMETER statements can be used to define names for constants. 

33. Under the Real Time Operating System, a multitasking environment is provided as well as a 
single task environment. A task is a FORTRAN program unit and is defined in source language 
beginning with a TASK statement and terminating with an END. The FORTRAN task scheduler 
is used in multitasking and all tasking functions arc handled at run time by run time tasking 
routines and the scheduler. 

34. Under RDOS, FORTRAN run time routines allow the user to identify to the RDOS system a device 
capable of generating interrupts. 

35. Under RDOS, FORTRAN run time routines provide access to the real time clock. 
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APPENDIX D 
OPERATING PROCEDURES 
There are several operating procedures within this appendix, they are: 

Operation under RDOS p j~._ 

Operation under RTOS \ .....]..]. . Pafe D-12 

Oneratinn iinHpr Rnnc:-^/-.i-.-,i^onKia mo ' _ 

„ v,v^.»ij^>i,.iuj.v, ovjj Page U-14 

Operation under DOS -compatible SOS pgpg d-24 

Operation of 8K Stand-alone FORTRAN IV ... . pJL 0-25 

Operation of HIPBOOT Page D-26 

Turn to the appropriate procedures corresponding to the environment your FORTRAN IV program 
will be operating in. / v iv piugiaai 

OPERATION UNDER RDOS 

The FORTRAN IV compiler i.s supplied to the user in the form of two dumped tapes. 

Dump Tape I, FIV. SV -088-000032 

Dump Tape 2, FORT. SV. CLG. SV -088-000033 

Before invoking the compiler, the user must create save files from tlie tapes using the LOAD command 

After the compiler has been LOADed. the FORTRAN Uhr.,., ...g. ^..^. .1 ^^.^ we luau command. 

using the XFER command. The libra^ tapes to be't;an;fe;reTare:""^^ ^'^ ^—-ec, ,0 :ne cusK 



RTIOS (099-000072) 

DFT. LB (099-000082) 

CSP. LB (099-000085) 
FMT, I.B (099-000034) 
MFMT. LB (099-00058) 
FORTl. LB (099-000035) 
F0RT2. LB (099-000036) 
F0RT3. LB (099-000037) 
FORT4. LB (099-000055) 
(099-000056) 
(099-000057) 
FSYS. LB (099-000083) 



The Real Time I/O system library. (Transfer the tape first when using 
Analog -to -Digital equipment; otherwise, the tape may be ignored. ) 
Transfer first when using the Discrete Fourier Transform; otherwise, tlie 
tape may be ignored. 

^'^^^Z'l'^T^^'!'?'' "f ""^ *® FORTRAN Commercial Subroutine Package. 

Tlic FORTRAN IV multiLask library (unmapped environment) 

The FORTRAN IV multitask library' ( mapped environment) 

FORTRAN IV Run Time Librar>' 1 

FORTRAN IV Run Time Library 2 

FORTRAN IV Run Time Library 3 

SMPYD. LB - Sofnvare multiply /divide 

HMPYD. LB - Hardware multiply/divide (Nova 800's. Nbva 1200's Supernova) 

NTVIPYD. LB - Hardware multiply /divide (Nova) 

An optional FORTRAN IV library to be used only if certain run time routines 

are to be utUized m the user's program. The list of the concerned run time 

routines is shown following. 

If any of the following run time routines are to beCALLed from Ae user's program, the FORTRAN IV 
library, FSYS. LB, must have been loaded. 



BOOT 


DUCLK 


GCOUT 


MDIR 


RUCLK 


CDLR 


DULNK 


GDIR 


MTDIO 


SPDIS 


CHLAT 


EQUIV 


GFREQ 


GDIS 


SPEBL 


CHSTS 


EXBG 


GSYS 


OEBL 


SPKIL 


CPART 


EXFG 


GTATR 


RDCMN 


STAT 


DIR 


FGND 


ICMN 


RDOPR 


UPDATE 


DLLXK 


GCIN 


INIT 


RENAME 
RLSE 


WRCMN 
WROPR 
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OPERATION UNDER RDOS (Continued) 

Once the compiler and lit)rary tapes are loaded onto dislc, the FORTRAN IV compiler can be Invoked 
using the FORT command followed by appropriate arguments. Unless the user specifies a /A switch 
(see Compile-Time Options) tlie compiler expects the save file ASM. SV to be resident on disk. 

Each FORTRAN main program, external subroutine, or external function is separately compiled. 
When the main program and its external subroutines and functions have been successfully compiled, 
the programs are loaded using the RLDR command. The FORTRAN libraries must always be 
loaded with the programs. 

A series of commands for compiling, loadmg, and running a FORTRAN program is shown following: 

FORT MAIN J 
FORT XSUBl) 
FORT X fun) 
FORTXSUB2) 

RLDR/D MAIN XSUBl XFUN XSUB2 FORTl. LB F0RT2.LB1) 
FORTS. LB FORT4. LB) 

MAIN ) 

Compilation and Assembly 

The Command Line Interpreter command FORT is used to compile a FORTRAN IV source program 
file. The format of the FORT command line is: 

FORT f global switches > mputfilename f outputfilename f local switches ^ ^ ) 

where: global switches can be appended to the command word, FORT. (These are discussed 
within the next section. ) 

inputfilename is the name of the source file the user wishes to be compiled. 

outputfilename is an optional file name specifying the name of the fUe to be output as a result 
of compilation. (By default, the name of the file to receive die output is inputfilename . ) 

local switches are optional switches which can be appended to the optional output file name. 
(These switches are described within the next section. ) 

By default, the CLI will search for the FORTRAN source file with the specified name inputfilename. FR 
(or, inputfilename if no file name with the . FR extension is found). 

If compilation is successful, an intermediate source file is produced. This fUe is the output of 
compilation which is used as the input to assembly. Once the assembly process has been success- 
fully completed, the intermediate source file is deleted. Output from the default form of the command 
line is a relocatable binary file called inputfilename . RB. Or, if an output file name is specified m the 
FORT command line, the output file will be a relocatable binary file witii the name outputfUename . RB. 

Compile -Time Options 

Output of compilation may be a relocatable bmary file (by default), an intermediate source file, a 
listing file, or a combination of these files. The type of output received is determined by use of 
local and global switch options. In addition, switches are used to determine whedier or not statements 
with an X appearmg in column 1 are to be compiled and whether FORTRAN variable names and 
statement numbers are to be equivalenced to symbols acceptable to the assembler. 

D-2 



OPERATION UNDER RDOS (Continued) 
Compile -Time Options (Continued) 

The global switciies which may be appended to the command word FORT are: 

/^ " assembly is suppressed, the soux'ce file will only be compiled (and 

intermediate source file is deleted by default). 

/B - hripf liqHno- ^rh^ ^r>mr»ilo-r o^iiT-^-/:. ^T'^/i-^-oi^ TiT^n U^ *U^ ^„1,. 1. ^ 

listing). 
/^ " error messages from the compiler are suppressed at the $TTO. 

(Assembler error messages, though, are not suppressed. ) 
/P " FORTRAN variable names and statement numbers are equlvalenced 

to symbols which are acceptable to the assembler. 
/L - the listing will be written to a file named inputfilename. LS . 

/N - no relocatable binary wUl be produced. 

/P ■ process only 72 characters per record/line (punched card). 

/S - save the intermediate source output file; by default, this file is 

deleted. 
/'-' ' causes user symbols to be output in the assembly phase (must be 

used with /F). 
/^ " compile statements with an X appearing in column 1. (X indicates an 

optionally compiled line. ) 

Local switches are appended to the appropriate outputfilename in the FORT command ILne. Note that 
there may be more than one outputfilename within the command line. The local switches are: 

/^ - the relocatable binary output is directed to outputfilename . This 

switch overrides the global /N switch. 
/^ ■ the resultant error messages are directed to outputfilename. The 

local /E switch overrides the global /E switch. 
/L - listing output is directed to outputfilename . This switch overrides 

the global /L switch. 
/S - intermediate source output is directed to outputfilename . 

Some examples of FORT command lines are: 
FORT/L PROG J 

produces a relocatable binary file with the name PROG. RB, and a compiler and assembler 
listing written to the file PROG. LS . 

FORT/N DPI:PR0G1 $LPT/L APROGl/Sj 

compiles the file PROGl from disk pack unit 1 and produces compiler source and assembly 
listings on the line printer and intermediate source output file, named APROGl, to the default 
directory. This command line wUl not produce a relocatable binary file from the assembly. 

Loading Procedures 

AU loading is accomplished via the RLDR command line. The format of the command line, though, 
is different depending upon the particular RDOS system configuration and environment. Procedures 
are outlined on following pages for loading in: 



D-3 



OPERATION UNDER RDOS (Continued) 

Loading I*rocedures (Continued) 

a single task environment 
a multiple task environment 
overlays, creating an overlay file 
a foreground/background environment 
a mapped /unmapped environment 

Global and local switches may be appended to the command word or file name where pertinent. These 

switches are listed under the procedures for loading in a single task environment, but they should 

be remembered and referred to when reading the other loading procedures detailed within this section. 

In general, loading proceeds as follows: 

Main FORTRAN program 

User subprograms and optional user modules such as FHMA and FRTSK. 

Specific, optional. DGC supplied FORTRAN libraries such as RTIOS. LB (Real Time 

I/O System) or DFT. LB (Discrete Fourier Transform). 

Required FORTRAN Libraries in the order given in sections following (FMT. LB, 

FORTl.LB, etc.). 

Loading in a Single Task Environment 

The RLDR command line is used to load relocatable binary output produced from compilation. The 
format used for loading in a single task environment is: 

RLDR fglobal switches^ mainprogram { local switches ^ F subprograms ^ flocal switches ] t ) 
f FHMA] FORTl.LB {FSYS. LB] F0RT2. LB F0RT3. LB FORT4. LB ) 

where: global switches which can be appended to the command word RLDR are: 

/A - produce an additional symbol table listing with symbols 

ordered alphabetically. 
/C - cause loading to be compatible with RTOS/SOS conventions. 

/D - load the symbolic debugger. 

/E - output errors to the error file (console, by default). 

/H - output all numerics in hexadecimal format (radix 16). By default, 

aU numeric output is in octal format. 
/N - inhibit search of SYS. LB. 

/S - symbol table left at the high end of memory. 

/Z - start save file at location zero. (CAUTION must be exercised if 

this switch is used. ) 

mainprogram is the name of the FORTRAN IV main program unit. 

local switches are switches which may be appended to an input file name or octal number, 
these are: 

/C - preceding octal number specifies number of channels 

required (this is not used in a single task environment). 
/E - error messages are output to given file name. 

/F - preceding octal value is the foreground NREL partition address 

(used only when loading in foreground /background unmapped 

environment). 
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OPERATION UNDER RDOS (Continued) 

Loading in a Single Task Environment (Continued) 

/^ preceding octal value specifies the number of tasks required. 

(Tliis switch is not used in a single task environment). 
^\ listing of the symbol table is written to the given file name. 

^^ NMAX is forced to an absolute address. 

/S file specified will be labeled with the . SV extension. 

/^ "'^er symbols are loaded from relocatable binary file specified. 

/^ preceding octal value is the foreground ZREL partition address. 

(Used only in a foreground A)ackground loading environment. ) 

subprograms are the optional names of one or more FORTRAN subprograms to be used 
by the main FORTRAN program unit. 

FHMA is an optional user module which defines the highest memory address accessible 
The default value is at the bottom of the system. 

FORTl. LB, F0RT2. LB and FORT3. LB are three FORTRAN IV Run Time Libraries 
which must be loaded. F0RT4. LB is one of three tapes depending upon Ae system 
configuration, either: 

099-000056 hardware multiply /divide (HMPYD. LB) 

(used widi Nova 800's, Nova 1200's and 
the Supernova) 

099-000057 hardware multiply /divide (NMPYD. LB) 

(used with the Nova) 

099-000055 software multiply /divide (SMPYD. LB) 

FSYS. LB is a FORTRAN library which is loaded only if one or more of the CALLs 
listed on page D-1 are to be issued from within the user program. 

cr^D^DlirMTr.;:"' " -^--j-o .^^^^^ .,^«,. ^uiioweu oy any external subprograms, followed by the 
b ORTRAN IV library files. 

Loading in a Multitask Environment 

In a multitasking environment, die multitask library (called FMT. LB) must be loaded before any of 
the other FORTRAN libraries. The switches and comments which applied to single task loading 
apply also to multitask loading. TTie format of the RLDR command line used in a multitask environ- 

RIDR • r( taskname •..>"! 

^^^^t)[ overlay-area 1 ...fj" t"umber/Cj fnumber /K^ fFHMA^ fFRTSK^ FMT. LB t) 
FORTl. LB fFSYS.LB^ F0RT2. LB FORTS. LB F0RT4. LB ) 

where: main is the name of the FORTRAN main program unit. 

^^'""^'"^ i^ *e name of a relocatable binary compiled from a task written in FORTRAN IV 
or assembled from an assembly language program. 

overlay -area is a bracketed list of relocatable binaries to become part of the overlay file 
mam. OL; relocatable binaries separated by blanks are part of the same node while those ' 
separated from die preceding by a comma belong to anodier node. 
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OPERATION UNDER RDOS (Continued) 

Loading in a Multitask Environment (Continued) 

number /C specifies the number of system channels required. 

number /K specifies the number of tasks to be used. (The numbers specified by tiie C and 
K switches overwrite the values specified in the CHANTASK statement. If these values at 
unspecified, the default values are a single task environment with 8 channels required. ) 

FHMA is an optional user module which defines the highest memory address accessible. 
The default value is at the bottom of the system. 

FRTSK is an optional user-supplied module specifying the number of tasks written in 
FORTRAN which will be active simultaneously. 

FMT. LB is the name of the FORTRAN IV multitask library. 

FORTl. LB. F0RT2. LB and FORT3. LB are three FORTRAN IV Run Time Libraries which 
must be loaded. F0RT4. LB is one of three tapes depending upon the system configuration, 
either: 

099-000056 hardware multiply /divide (HMPYD. LB) 

(used with Nova 800's, Nova 1200 's and the 
Supernova) 

099-000057 hardware multiply /divide (NMPYD. LB) 

(used with the Nova) 

099-000055 software multiply /divide (SMPYD. LB) 

FSYS. LB is a FORTRAN library which is loaded only if one or more of the CALLs 
listed on page D-2 are to be issued from within the user's program. 

The Overlay Loader (OVLDR) 

It is possible to replace one or more overlays within an overlay file. To do so. a file of replacement 
overlays must be loaded using the overlay loader, which is invoked with the command OVLDR. When 
the replacement fUe of overlays has been loaded, overlays within the current overlay file may be re- 
placed with overlays in the replacement fUe. using the command REPLACE. Up to 127 overlays can 
be replaced. 

Use of the overlay loader requires that there exist a save file filename. SV and an overlay file 
filename. OL. and that the save fUe contain a symbol table. (The save file will contam a symbol table 
either if the symbolic debugger is loaded (global/D in the RLDR command line) or if the symbol table 
only is loaded by declarmg it as an external normal, . EXTN . SYM. , in the code loader is part of the 
save file. For example, save file A. SV and overlay file A. OL could be loaded using the following 
command line: 

RLDR/D A B [C. D E. F] G [M. N, O] FORT. LB ) 

The diagrams on the following page would represent the save and overlay files created. 
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OPERATION UNDER RDOS (Continued) 

The Overlay Loader (OVLDR) (Continued) 
A.SV 



A.OL 



node 



node -^ 



node 1 ■ 



A 


13 


overlay area 


G 




overlay area 1 





DE 



M 



node 1 



O 



-nien if one or more overlays of A. OL are to be replaced at a later time, the overlay loader can be 
used to load a replacement overlay file. A. OR. The format of the OVLDR command line is: 

OVLDR filename I overlay symlpol /N) overlay list ... j 

\ overlay number /N/ 



y overlay symbol /N ) 
I overlay number/ N/ 






overlay list 



■} 



|devicename/L 



where: filename is the name of the save file associated with the overlay file in which overlays 
are to be replaced. 

overlay symbol aad overlay number are alternative means of referencing the overlay (s) 
to be replaced, overlay number is a 1 to 6 digit octal number (see page 5 -8). overlay 
symbol , if used, must have been a symbol declared by . ENTO . 

overlay list is a list of one or more overlays which are to replace the overlay specified 
by overlay symbol or overlay number . 

devicename /L is the name of the device to contain the listing file. 

devicename /E is the name of the device to contain the error file. 

For example, if the user wishes at some time to replace overlay F in A. OL with overlay Fl and 
to replace overlay O in A. OL with overlay Ol. he must first load die overlays into a replacement 
file usmg the overlay loader: 

OVLDR A 2/N Fl 402/N Ol $LPT/L $TTO/E } 
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OPERATION UNDER RDOS (Continued) 
I The Overlay Loader (OVLDR) (Continued) 

The resulting overlay replacement file would contain: 
A. OR 



. OR directory 



Fl 



Ol 



To substitute Fl for F and Ol for O, the user would then give the command: 

REPLACE a; 

Loading in a Foreground/Unmapped Environment 

All relocatable loads are loads in the background unless indicated as foreground loads. This is 
indicated by including memory partition address information within die command line. The partition 
addresses define the starting ZREL (/Z switch) and NREL (/F switch) addresses of the foreground 
load. 

The selected NREL partition address must be equal to 163 +n * 4008 where n is a positive integer. If 
the given NREL partition address is not of this form (i.e. , n is not an integer), the loader will adjust 
the NREL partition address upwards by rounding n to the next higher integer value. 



The format of the RLDR command line is; 

(taskname . . .|1 ^pR-pg^^ fnumber/C^ {number /K] fj 



RLDR main 



( [overlay -area ] 

number /F number /Z FMT. LB FORTl.LB {FSYS. LB] F0RT2. LB t) 
F0RT3. LB FORT4.LB) 

where: the command line is identical to previous command line formats except for the inclusion of 
the /F and /Z switches. 

Loading in a Background Unmapped Environment 

The RLDR command line format used is identical to that given for the multitask loading environment, 
except that an optional user-supplied module (called FHMA) may be loaded anywhere before the 
libraries in the command line. 

FHMA specifies the highest memory address a FORTRAN background program may have. This 
insures that memory will be available for a potential foreground program. 

Examples of RLDR Command Lines 

RLDR MAIN SUBl FORTl.LB F0RT2. LB FORT3. LB FORT4. LB) 

loads one main program unit and one external subprogram unit and the FORTRAN libraries. 
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OPERATION UNDER RDOS (Continued) 

Examples of RLDR Command Lines (Continued) 

RLDR MAIN TASKl TASK2 FMT. LB FORTl.LB FORT2. LB F0RT3. LB F0RT4. LB) 

loads one main program unit and two tasks along with the multitask library and the other 
four FORTRAN libraries. 

RLDR MAIN T2 [ OVl OV2. OV3 ] T3 FRTSK FMT. LB 10/C 4/K FORTl.LBf; 
FORT-2.LB F0RT3. LB F0RT4. LB) 

loads a FORTRAN main program unit, two tasks, and an overlay file consisting of two 
overlays, the user-supplied FRTSK module, the multitask library, and the four FORTRAN 
libraries. The number of tasks is set to 4 and the number of channels to 10. 

Undefined Symbols 

At the termination of loading, only tlie .DSI symbol (which is used in stand-alone) should be undefmed. 
When in a multitasking environment, no symbol should remain undefined m the load map. 

To provide dummy definition on BATCH runs, . DSI can be defined as: 

.DSI = -1 

Debugging 

To use the symbolic debugger. DEBUG III, for run time debugging of FORTRAN programs, the 
global /D switch should be appended to the RLDR command word. The switch causes DEBUG to be 
loaded. To replace DEBUG III with IDEB, the RLDR command line must also contain the file name 
IDEB in addition to die /D global switch. The mnemonic IDEB must precede SYS. LB m the command 
line if SYS. LB is present in the line. 

Merging Library Files 

The merging of library files can be accomplished by use of die M function within the LFE command 
line. The library files FORTl. LB, F0RT2. LB, F0RT3. LB and FORT4. LB can then be merged to- 
gether as one library file. This file should be named FORT. LB to be recognized by CLG (see The 
CLG Command on page D-IO). The command to merge the FORTRAN libraries is: 

LFE M FORT.LB/O FORTl.LB FORT2. LB FORT3. LB F0RT4. LB ) 

where the local /O switch signifies the name of die output library file. FORT. LB. 

It is dien possible to load a FORTRAN program, with necessary libraries, with the followuig command 
line: 

RLDR MAIN FORT. LB ) 

The FORTRAN multitask library. FMT. LB, and the FORTRAN Mapping Library, MFMT. LB, are 
merged only with the other library files when multitasking in mapped or unmapped facilities is 
desired. 

The FORTRAN IV library FSYS. LB can be merged when it is necessary for its inclusion in die set 

of libraries, because of a program's issuance of CALLS to one or more of the routiaies listed on page D4 
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OPERATION UNDER RDOS (Continued) 

tvferging Library Files (Continued) 

To load a FORTRAN program, with two subprograms, in a multitask environment, the following 
command line can be given; 

RLDR MAIN TASKl TASK2 FMT. LB FORT. LB) 

The CLG Command 

The CLG Command is used to perform a FORTRAN IV compilation, load, and execution of one or 
more FORTRAN IV source files. The CLG (compile, load, and go) will bring in whatever system 
programs are required to create a save file from the specified input files and then execute the save 
file just created. 

Output includes one or more intermediate source files, one or more relocatable binaries, and an 
executable save file. The save file is created by the relocatable loader, using the relocatable binary 
files and four of the FORTRAN IV libraries which must have been merged into a single library called 
FORT. LB. 

CLG is supplied as a file on the FORTRAN system dump tape, which is loaded as part of the FORTRAN 
compiler. All other needed system programs must have been loaded onto disk. These include, besides 
the FORTRAN IV compiler, the Assembler and the Relocatable Loader. 

The format of the CLG command line is: 

CLG filename f fitename2 . . . filename ^^ ) 

By default, all filename arguments are presumed to be file names of FORTRAN IV source files. 
Optional load switches to the particular file names specified indicate whether the fUe is an assembly 
source file or an assembled file that is to be loaded. The CLI will first search for filename, extension 
(where extension is either . FR, . SR or . RB) and if not found, will search for filename. 

Global switches can be appended to the command word CLG. The allowable global switches are: 

/B brief listing (compiler source program input only). 

/M the loader map is suppressed. All compiler and assembler source 

programs are listed. 
/E error messages from the compiler are suppressed at the $TTO. 

(Assembler error messages, though, are not suppressed.) 
/T indicates multitask CLG command line. (Note that the multitask 

library FMT. LB must be available on disk. ) 

Local switches are appended to the appropriate filename within the CLG command line. Allowable 
local switches are: 

/C preceding octal number specifies number of channels required. 

/L listing output is directed to the given file name. 

/A assemble and load this file only; do not compile. 

/N load this file only, do not compile or assemble. 

/K preceding octal value specifies number of channels required. 

An example of a CLG command line is: 

CLG/M PROGl PROG2/A PROG3/N MT0:1/L) 



D-10 



OPERATION UNDER RDOS (Continued) 

The CLG Command (Continued) 

In the example, CLG will take the following action: 

1. Compile PROGl. FR (or PROGl) producing temporary assembler source file. 
PROGl. SR. Assemble PROGl. SR producing PROGl. RB. Delete PROGl. SR. 

2. Assemble PROG2. SR (or PROG2) producing PROG2. RB. Delete PROG2.SR, 

3. Listings from each compilation and assembly are appended to file 1 on magnetic 
tape unit 0. 

4. Load PROGl. RB, PR0G2. RB, and PROG.S. RR tngether with the FORTRAN IV 
library file FORT. LB, to a save file named PROGl. SV. The loader map is 
suppressed. 

5. Execute PROGl. SV. 

In a single task environment, the FORTRAN merged library file, FORT. LB, must be on disk when 
the CLG is executed. For multitasking, both the multitasking library, MFMT. LB, and the merged 
file FORT. LB must be on disk. 
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OPERATION UNDER RTOS 

Since the Real Time Operating System (RTOS) is a compatible subset of the Real Time Disk Operating 
System (RDOS), RTOS will support a subset of DGC Real Time FORTRAN IV. To write a FORTRAN IV 
program for use with RTOS, you may use either the RDOS FORTRAN IV compiler or the SOS 
FORTRAN IV compiler. Operating procedures for each are given within this chapter, beginning on 
page D-I for RDOS and page D-14 for SOS. 

The only restriction when writing a FORTRAN IV program under RTOS is that only those real time 
calls may be used which have corresponding system and task calls Implemented in RTOS. There- 
fore, use of the OVERLAY statement is prohibited, but all Real Time FORTRAN IV calls except 
the following may be issued. The calls which are prohibited in a RTOS environment are: 



BACK 


CPART 


FBACK 


FSTAT 


GDIS 


RDCMN 


WRCMN 


BOOT 


DFILW 


FCHAN 


FSWAP 


OEBL 


RDOPR 


WRITR 


CDIR 


DIR 


FCLOS 


GCIN 


OVEXT 


RDRW 


WROPR 


CFILW 


DLINK 


FGND 


GCOUT 


OVEXX 


READR 


WRTR 


CHAIN 


DULNK 


FOVLD 


GDIR 


OVKIL 


RENAM 




CHLAT 


EBACK 


FOVRL 


GSYS 


OVKIX 


STAT 




CHSAV 


EXBG 


FQTASK 


ICMN 


OVLOD 


SWAP 




CHSTS 


EXFG 


FSEEK 


MDIR 


OVOPN 


UPDATE 





After having produced one or more FORTRAN IV relocatable binaries, the relocatable binaries 
may be loaded using the (1) SOS relocatable loader (RLDR), the (2) RDOS relocatable loader 
(RLDR), or the (3) stand-alone extended relocatable loader (091-000038). 

Using (1) or (2) the format of the command line is: 

RLDR main { subprograms] RT module { RTOSFMT. LB] FORTl.LB f FSYS. L&j FORT2.LBt) 
FORT3. LB F0RT4. LB RTOS 1. LB RTOS2. Lb) 

where: main is the name of the main FORTRAN program unit. 

subprograms are the names of one or more optional subprogram units called by main. 

RT module is the name of the module produced in the RTOS SYSGEN procedure. 

RTOSFMT.LB (099-000077) is the RTOS multitasMng FORTRAN IV run time library. 
The library must not be used in a single tasking environment. 

FORTl. LB, F0RT2. LB, FORT3. LB, and FORT4. LB are the FORTRAN libraries. (These 
libraries may exist on paper tape, magnetic tape, or cassette tape. ) Note that these are 
the RDOS libraries described on page D -1 . 

FSYS.LB (099-000083) is a library that is to be loaded if the user's program is to issue one 
of the following run time calls: DUCLK, GFREQ, INIT, MTDIO, RLSE, and RUCLK. 
(If this library is to be loaded, it must be loaded between FORTl.LB and F0RT2.LB. ) 

RTOSl.LB (099-000060) is the first RTOS library to be loaded, and RT0S2.LB (099-000061) 
Is the second RTOS library to be loaded. 

If using the (3) stand-alone relocatable loader (091-000038) which is loaded via the binary loader, 
it will self -start and print: 

SAFE = 
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OPERATION UNDER RTOS (Continued) 

after which the user responds with a carriage return which wiU reserve the upper 200 words of 
memory, preserving both the bootstrap and binary loaders. The loader then prompts: 



The paper tapes may then be loaded in the same order as they were typed in response to an RLDR 
commajid line format. Brieily, the load process is to mount each tape, in turn, in either the 
teletypewriter reader or the high-speed paper tape reader, then tj^e either 1 or 2. 

1 - teletypewriter reader 

2 - high speed paper tape reader 

After each tape is loaded, the loadpr nrnmnfs wit+i * Af^o•l- t-h^. ^a,.n„„„* ^„„„„ i i . _ , , 

* * ----- ^-._ . . ^ „^^ ^v^-t ,,xii»^ixc t.upt_o llO-VC JJCCll iUclUt^ 

a loader map can be requested by typing 6. At this time the load process can be terminated by 
typing 8. 

To restart, set the restart address. 376, in the data switches, press RESET, and then press START. 

For more detaUed Instructions of operation in an RTOS environment, refer to the RTOS User's 
Manual. 093-000056. Appendix B. 
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OPERATION UNDER SOS 

SOS operating procedures are suMivided into three segments (1) those for users whose SOS 
system does not support a cassette or magnetic tape unit (SOS library tape 099-000010), (2) those 
for users whose SOS system includes a magnetic tape or cassette unit (SOS library tapes 
099-000010 and either 099-000042 (magnetic tape) or 099-000041 (cassette)), and (3) those for 
users whose SOS system is DOS -compatible (SOS library tape 099-000071). Operation for 
numbers (1) and (2) is given below and on the following pages, operation for (3) begins on page D-21. 

OPERATION UNDER RDOS -COMPATIBLE SOS 

This SOS version of the FORTRAN IV compiler is supplied as two absolute binaries, FORTl. AB 
(091-000039) and F0RT2.AB (091-000043) and four libraries, FORTi, FORT2, F0RT3, and F0RT4, 
which are the RDOS libraries described on page D-1. 

For users whose system supports a cassette or a magnetic tape unit, Uvo relocatable tapes are 
provided which allow users to configure their own FORTRAN IV compiler to be used widi their 
specialized peripheral devices. These tapes are: 

SOSFI.RB - 089-000041 

FORT.RB - 089-000161 

Hie SOS relocatable loader can be used to configure a specialized version of the FORTRAN 
compiler. The trigger used may be generated by the SOS SYSGEN program or a separate 
assembly may be produced to generate external normal symbols which will trigger the loading 
of SOS device drivers. For example, if the user wants a compiler with a high speed paper tape 
reader, a high speed paper tape punch, and two cassette units, he could input to the SYSGEN 
program: 

(SYSG) trigger /T $PTP/0 . PTRD . PTPD . CTUl J 

The SOS relocatable loader can then be used to load die following files in the order: 

TRIG 
SOSCT 
SOS. LB 
FORT. RB 
SOSFI. RB 

Compilation 

When SOS FORTRAN IV is loaded, the prompt: 

FORT 

is printed on the teletypewriter. The user should respond by typing in a command line giving the 
fUe names of the files to be input for compilation, the output file name, and the listing file name 
if any, along with optional compUe -time option switches. The FORT command line will be written 
in the following format: 

FORT filename 1 f filename2 . . . filenamgi^ ) 

where: FORT followed by a space is typed by the system. 

each filename can be modified by one or more of the switches described on die following 
page. 
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OPERATION UNDER RDOS-COMPATIBLE SOS (Continued) 

Compilation (Continued) 

The switches which may be appended to a given filename are: 



/O - this file is to be used for output. 

/L - this file is to hp UVpd ac tht^ HoHno- fila 

— — — — «^^ ^^^v^x^ i«.^, 

/X - compile statements with an X appearmg in column 1 of the source line. 

(This must be used to modify the output file name, the file name which is 

appended with the /O switch. 
/^ " FORTRAN IV variables and statement numbers are equivalenced to 

symbols which are acceptable to the assembler. (This switch must 

modify the output file name). 

n is a single digit representing the number of files to be input, e. g. , 

$PTR/3. 



/n 



At a minimum, the command line must contain one file name whidi is the input file name. If more 
than one input file is specified, e.g. , 

FORT MT0:2 MT0:3 MTl:0/O ) 

the message: 

TO CONTINUE, STRIKE ANY KEY) 

is typed on the teletypewriter console whenever one of the intermediate files has passed through 
die compiler. The next input file must be ready for opening when the user strikes the key. No 
other prompt messages are output for intermediate input files. 

Input files are compiled in the order in which they are specified within the command line. At the 
completion of each compilation, the prompt: 

FORT 

is again typed on the teletypewriter. The prompt is reissued if no input file name is found in the 
command line. If the last specified input file does not have an END statement, the message: 

END OF FILE } 

is typed at the console. The compiler must then be restarted (the restart location is 377). If any 
unexpected system error occurs, the message: 

FATAL I/O ERROR 2g^ ) 

is typed at the console, xx^is one of Ihe two-digit error codes defined in the SOS User Parameter 
Tape, PARU. SR (a copy of which can be found in the Stand-alone Qjerating System User's Manual. 

093-000062). 

The command line may be deleted, continued, or modified in the following manner: 

1. Pressing SHIFT and L keys will delete the line. 

2. An up arrow immediately preceding a carriage return (line feed) allows the 
command line to be continued onto the next console line. 

3. Pressing RUBOUT erases the last character typed in the command line. 
Repeated RUBOUTs delete characters from right to left. 
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OPERATION UNDER RDOS-COMPATIBLE SOS (Continued) 

Compilation (Continued) 

An example of a FORT command line is: 

FORT $FTR/2 $PTP/0 $LPT/L ) 

Tlie SOS SYSGEN procedures allow the user to tailor the compUer I/O configuration. See the SOS 
User's Manual. 

Assembly 

FORTRAN IV output is assembled with the DGC Extended Assembler, 091-000017. The assembler 
can be loaded from paper tape, at which point it will print the prompt ASM. Or, when a cassette or 
magnetic tape unit is configured in die system, die CLI command ASM may be issued, ta either case, 
the format of the ASM command line is: 

filename 1 f . . . f ilenamen ^ } 

The ASM command line is used to assemble one or more ASCII source files. Output may be an absolute 
binary file or a relocatable binary fUe. Files are assembled in the order specified m the command 
line, left to right. The same cassette or magnetic tape unit cannot be used for more than one output 
fUe but may be used for more than one input fUe. Further, the same cassette or magnetic tape unit 
cannot be used for both input and output. 

Action taken by the assembler is determined by the key specified in the ASM command Ime (0, 1, or 2). 

- Perform pass one on the specified source fUe, then halt with die highest 

symbol table address (SST) in ACO. 

1 - Perform pass one and pass two on the specified FORTRAN input files, producing 

the specified binary and listing fUes. At the completion of pass two, the assembler 
outputs a new prompt, ASM, and awaits a new command line. 

2 - Perform pass two only on the specified input fUes producing the specified binary 

and listing fUes. At the completion of this pass, the Assembler outputs a new 
prompt, then ASM, and awaits a new command line. 

The global switches which may be appended to die key number are: 

/E - suppress assembly error messages normally output to the $TTO. 

/T - suppress the listing of the symbol table. 

/U - include local (user) symbols in the binary output fUe. 

The local switches which may be appended to Individual file names are: 

/B - relocatable or absolute binary file is output on the given device. 

/L - any output device to which the listing is directed. 

/N - any input fUe which is not to be listed in pass 2. 

/p - pause before accepting a file from a device. The message: 
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OPERATION UNDER RDOS -COMPATIBLE SOS (Continued) 
Assembly (Continued) 

PAUSE - NEXT FILE, devicename 

is output by the assembler which waits until any key is struck on the 
teletypewriter console. 

/S - skip this source file during pass two. 

/n - n is a digit from 2 to 9. 



ASM 



I/E CT0:16 CT0:17 CT1:0 CT1:1 $LPT/L J 



causes a two-pass assembly to be executed on FORTRAN input source file CT0:16, CTO-17, CTl-0 
and CT1:1 with a listing produced on the line printer. Error messages normally output to the $TTO 
are suppressed, and no binary file is produced. 

Loading 

Having produced one or more FORTRAN IV relocatable binaries, the relocatable binaries for sys- 
tems usuig magnetic tape or cassette may be loaded using die SOS relocatable loader (089-000120) 
Systems using paper tape may be loaded using the stand-alone relocatable loader (091 -000038) The 
SOS relocatable loader prints the prompt RLDR, and the user responds with die command line' 



(RLDR) mam f subprograms^ FORTl. LB F0R17. LBtJ 

: cassette library i 
mag tape library f 

where: main is the name of the FORTRAN main program unit, 



FORTS. LB FORT4. LB trigger J/ cassette library i] SOS main library ) 



su.^programs are tue names of one Ox. more optioiial subprograms to he called by main. 

FORTl. LB, FORT2. LB, FORTS. LB are FORTRAN libraries. (These libraries may 
reside on paper tape, magnetic tape, or cassette tape. ) 

F0RT4. LB is a FORTRAN library tape selected to correspond to the user's system con- 
figuration, either: 

099-000056 hardware multiply /divide (Nova 1200;s, Nova 800's 

Supernova) 
099-000057 hardware multiply /divide (Nova) 

099-000055 software multiply /divide 

trigger is die SOS trigger which is created during the SOS SYSGEN procedures. It 
is a tape containing external symbols for those devices that are to be a part of the 
system, (trigger is outlined on the following page. ) 

cassette library is tape number 099-000041 and must be loaded only when cassette 
units are to be a part of the system. 

mag tape library is tape number 099-000042 and must be loaded only when magnetic 
tape units are to be a part of the system. 

SOS main library is tape number 099-000010 and it contains the main library and all 
driver routines for SOS I/O devices (except cassette and magnetic tape units). 
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OPERATION UNDER RDOS-COMPATIBLE SOS ( Continued) 

Lxjading (Continued) 

Upon completion of a successful load, the message OK is printed at the console and the system 
will halt with the loaded program in core. 

The stand-alone version of the relocatable loader (091-000038) is used as described under RTOS, 
page D-12. Loading of FORTRAN tapes proceeds in the same order as given for the SOS loader 
just described. 

Execution and Restart Procedures 



The loaded program may be executed by pressing CONTINUE or by using the RESTART procedures. 
When a PAUSE statement is executed, the program will continue when the programmer presses any 
teletypewriter key. Restart procedures are as follows: 

1. Set switches to 377. 

2. Press RESET, 

3. Press START. 

Producing a Trigger 

A trigger is produced using the SOS SYSGEN program which is loaded via the binary loader, or 
loaded using the core image loader/writer. Basically, the SYSGEN program accepts a command 
line containing device driver entry symbols and outputs a file containing external references to the 
named devices. When the trigger is loaded in the RLDR command line (preceding other SOS 
libraries) the external normal references on the trigger will cause the named device drivers to be 
loaded from the SOS libraries. The format of the SYSGEN command line is: 

(SYSG) driver ....driver . RDSI t.CTB^ output-device /0 [ triggername /T} 
1 ^n 

driver may be one or more device driver entry symbols selected from the following chart: 



Device Name 


Device Driver Entry Symbol 


Device 








$CDR 


. CDRD 


card reader 


CTO 


.CTAD 


cassette unit 


CTO.l 


.CTUl 


cassette units and 1 


CTO, 1,2 


.CTU2 


cassette units 0, 1, and 2 








CtO,l,2,3,4,5.6,7 


.CTU7 


cassette units 0,1,2,3,4,5,6 and 7 


$PTP 


.PTPD 


high-speed paper tape punch 


$PTR 


.PTRD 


high - speed paper tape reader 


$LPT 


.LPTD 


80-column line printer 


.L132 


132-column line printer 


MTO 


.MTAD 


magnetic tape unit 


MTO, 1 


. MTUl 


magnetic tape units and 1 






■ 


MTO, 1,2, 3, 4, 5, 6, 7 


.MTU7 


magnetic tape units 0, 1,2,3,4,5,6 and? 


$PLT 


.PLTD 


incremental plotter 


$TTO/$TTI 


.STTY 


teletype printer and keyboard 


TTU/TTOl 


.TTU 


second teletype printer and keyboard 


.RTCl 


real time clock, lOHZ 


.RTC2 


real time clock, lOOHZ 


.RTC3 


real time clock, lOOOHZ 


.RTC4 


real time clock, 60HZ 


.RTC5 


real time clock, 50HZ 



For more detailed instructions for producing a trigger for SOS systems, refer to the Stand-alone 
Operating System User's Manual, 093-000062. 
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OPERA lIOxN UNDER RDOS -COMPATIBLE SOS (Continued) 

Possible Error Messages 

The possible error messages resulting from the ASM or RLDR command lines are: 



Error Message 


Meaning 


ASM 


RLDR 


NO END 


No END statement was specified in any source 
program. 


X 




NO INPUT FILE 
SPECIFIED 


No input file name was specified. 




X 


SAVE FILE IS READ/ 
WRITE PROTECTED 


The save file device must permit both reading 
and writing: only cassette and magnetic tape 
units are permitted as save file devices. 




X 


I/O ERROR n 


Input/output error n 

where n = 

1 Illegal file name. 

7 Attempt to read a read -protected file. 

10 Write -protected fUe. 

12 Non-existent file. 


X 

X 
X 
X 
X 


X 

X 
X 
X 
X 



SOS FORTRAN IV Examples 

FORT CT0:O $LPT/L CT1:0/Oj 

FORT$LPT/L CT0;1 CTl:l/0) 

FORT CTl:2/0 CT0:2 $LPT/LJ 

FORTRAN IV input files on CTO:0, CT0:1, and CT0:2 are compiled and assembly source files are 
produced on CT1:0. CT1:1. and CT1:2 (indicated by a /O switch) respectively with aU listings 
produced on the line printer. 

ASM 1 $LPT/L CTO:0/B CT1:0) 

ASM 1 CT0:1/B CT1:1 $LPT/l) 

ASM 1 CT1:2 $LPT/L CT0:2/BJ 

Assembly source files on CT1:0. CT1:1, and CT1:2 are assembled and relocatable binary files are 
produced with a listing to the line printer. 

(SYSG) TRIG/T CTl:0/O .RDSI .CTU2 . PTRD . PTPD) 

A trigger file is produced on CT1:0 widi external normal references necessary to load drivers for 
3 cassette units, $PTR driver. $PTP driver, and the RDOS-to-SOS interface from Che SOS libraries. 

RLDR $LPT/L CT2:0/S CT0:O CT0:1 CT0:2/P CT1:0/P CTl:Ot) 

CT1:0 CT1:1 CTl:2j 
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OPERATION UNDER RDOS -COMPATIBLE SOS (Continued) 
SOS FORTRAN IV Examples (Continued) 

A save file is produced on CT2:0 and also loaded into core witli a load map printed on the $LPT. 
This command line assumes diat the following procedure is executed: 

1) The relocatable binaries generated from tlie FORTRAN compilations are loaded from 
CTO:0, CT0:1. and CT0:2 with a pause (indicated by the /P switch) foUowtng the last one 
loaded. 

2) A merged version of the four FORTRAN libraries on a single cassette reel is mounted 
on unit 1 and loaded with a pause following this file. 

3) The reel on unit one is now replaced with a reel which contains the trigger file, the 
SOS cassette library file, and the SOS library fUe. These files are then added to the 
load module. 
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OPERATION UNDER DOS-COMPATBLE SOS (STAND-ALONE FORTRAN ) 

Using the binary loader, FORTRAN IV program tapes 091-000039 and 091-000043 are loaded in that 
order. Restart location, if needed, is at location 377. 

Compile -Time Options 

,.i.w, i wi,.ixvii.i, 1, lo luaucu, uie sybLeiii queries cne user m regaro to aevice assignments and 
compile -time options as follows: 

IN: 

The user responds to diis query with a single number representing the source code input device as 
follows : 

1 - $TTI 

2 - $TTRI 

3 - SPTR I ASCII output must have even parity. 

4 - $CDR 

When the source code input device has been given, the system queries: 
OUT: 

The user is expected to respond to the query with a number representing tlie assembler source 
output device (including error listing). The possible responses are: 

1 - $TTO 

2 - $TTP 

3 - $PTP 

4 - JLPT 

- no device ; used when only a listing is desired 

After the user's response is complete, the system daen queries: 

LIST: 
The user responds with a number indicating the designated listing device. The possible responses 



are 



- no device (no listing desired) 

1 - $TTO 

2 - $TTP 

3 - $PTP 

4 - $LPT 



The listing includes the FORTRAN source program complete with error messages. All lines of 
this output listing are preceded by a semicolon m order that the OUT and LIST devices may be the 
same. It is important to note that error messages are always output to the teletypewriter regard- 
less of whether a LIST or OUT device was specified or not. The system will then query: 



COMPILE X ? 



requesting the user to specify whether source lines preceded by an X in column I should be compiled. 
A response of 1 will compile the lines; a response of wUI cause the assembler to treat the lines as 
comments. Tlie system then queries: 



SYMBOLS ? 
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OPERATION UNDER DOS-COMPATIBLE SOS (STAND-ALONE FORTRAN) (Continued) 
Compile Time Options (Continued) 

where the user responds with a number indicating whether symbols should be equivalenced or 
not. Possible responses are: 

- suppresses the symbol list 

1 - all FORTRAN variables and statement numbers will be equivalenced as discussed in 

Appendix C. The symbols will be output. 

If die user issues an illegal response to SYMBOLS, die query will be repeated ignoring the Ulegal 
response. 

After the user has responded successfully to die queries, the source program can be input for 
compilation from the designated input device. When compilation is complete (as determined by an 
END statement m the source program), the FORTRAN compiler will type: 

TO CONTINiUE, STRIKE ANY KEY 

To compile another program, using the same designated input and output devices, press any key 
on the teletypewriter keyboard. To change die device assignments, restart at location 377. 

An option is open to the programmer to mput his source program from several separate tapes. To 
do so, each tape must end with the line: 

.EOT 
The . EOT line will then allow for separate tapes in parameter definition and COMMON declarations. 

Assembly 

FORTRAN IV output can be assembled with the DGC Extended Assembler. Each FORTRAN IV pro- 
gram generated is complete with all necessary declarations and pseudo-ops in order to use tlie 
assembler. (There are many errors which may be ignored by the compUer but detected by the 
assembler, particularly, usage of assembler reserved mnemonics; therefore, do not suppress 
error typeout. ) The binary output resulting from the assembled mode of operation 2 or 4 is 
relocatable. 

Loading 

To run under DOS -compatible SOS. the binary tapes for the .MAIN FORTRAN program and all sub- 
programs can be loaded usmg DGC's Extended Relocatable Loader. This loader is described in 
Chapter 1 of manual number 093-000080. 

Loading should proceed as outlined below: 

1. Load die FORTRAN main program relocatable binary. 

2. Load all FORTRAN subprograms which are called by die main program. 

3. Load FORTRAN library tape number 099-000005. 

4. Load FORTRAN library tape 099-000006. 

5. Load FORTRAN library tape 099-000007. 



OPERATION UNDER DOS -COMPATIBLE SOS (STAM3 -ALONE FOR FRAN ) (Continued) 
Loading (Continued) 

6. Then load one of the following tapes : 

099-000009 if system is configured with multiply /'divide hardware 

option (Nova 1200 'st Nova 800 's. Supernova) 

099-000011 if system is configured with multiply /divide hardware 

option (Nova) 

099-000008 no multiply /divide hardware option 

7. Load the DOS -compatible SOS library tape (DOS tape no. 099-000071). 

8. A loader map can be obtained at this time with load mode 6. 

9. Check undefined symbols (load mode 9). Undefined symbols will be listed at the tele- 
typewriter. The following may reasonably be undefined. 

FLSZ Number stack size; if undefined a default value is used. 

FLSP Real arithmetic package. 

CMSP. Complex arithmetic package. 

10. Terminate the load (mode 8). The loaded system may be run by pressing CONTINUE 
or by using the restart procedure. 

Restart Procedure 

The loaded system may be restarted by: 

1. Set switches to 377 

2. Press RESET 

3. Press START 

Execution 

When a PAUSE statement is executed, the program will continue when the programmer presses 
any teletypewriter key. 
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OPERATION OF 8K STAND-ALONE FORTRAN IV 

The FORTRAN IV program tape 091-000052 is loaded with the binary loader. The library tapes 
for 8K FORTRAN are the same as for DOS -compatible SOS, (in addition to library FOR TO. LB). 

Operating Procedures 

Operating procedures for the 8K version of FORTRAN IV differ from those of the DOS/SOS FORTRAN IV 
version at compile time. These differences are: 

1. There is no separate LIST output. 

2. Responce to the "IN:" query is one of the following: 

2 Teletypewriter reader 

3 Paper tape reader 

3. Response to the "OUT:" query is one of the following: 

None 

2 Teletypewriter punch 

3 Paper tape punch 

4. There is no "SYMBOLS" query and no symbol list output. 

5. The . EOT tape option is not available. 

6. After the query "COMPILE X?" has been answered by either a 1 or a the compiler 
will type: 

LD RDR HIT CR 

The programmer should prepare the tape in the appropriate reader and type a carriage 
return (press the RETURN key). 

7. At the end of the compilation, the compiler wUl reinitialize and type again: 

IN: 

8. To restart the compiler after shutdown or to change initial assignments, start at 
location 377. 

9. The object code produced by the 8K compiler may need library FORTO. LB to be loaded 
before the others. 
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OPERATION OF 8K STAND-ALONE FORTRAN IV (Continued) 

Language Limitations 

The following features of DGC FORTRAN IV are not available for an 8K memory configuration: 



1 
2 

O 
iJ 

4 
5 
6 
7 
8 
9 
10 



DATA statement 

Statement functions 

EXTERNAL statement 

Mixed mode arithmetic 

File positioning 

EQUIVALENCE statement 

FORMAT syntax checking at compile time 

Library function argument count and type checking 

Complex literals 

PARAMETER statement 



Most of the features of the larger FORTRAN IV, though, can be effectively replaced by combinations 
of other FORTRAN IV statements, for example: 

Statement functions are identical to FUNCTION subprograms in calling sequence and code 
generated. 

The two major functions of an EQUIVALENCE statement are to equate logical and numerical 
storage and to share temporary storage. DGC FORTRAN IV automatically equates logical 
and integer variable types. To share temporary storage, labeled COMMON that is to be used 
to contain EQUIVALENCEd storage can be defined in several program units with a different 
structure being specified in each. 

The absence of library function argument and type checking deserves close attention. Functions which 
are not typed correctly by the IJKLMN convention must appear in a type declaration statement or 
insufficient temporary storage will be allocated for the return of the function value. All double pre- 
cision, complex, and double precision complex functions must have their type declared. 

SMALLER OBJECT PROGRAMS 

The FORTRAN IV programmer should be aware of two means of saving considerable space: 

1. The single and double precision arithmetic packages are totally distinct and each 
requires about 600 words of storage. If possible, use only single or double precision. 
To force all real variables and constants to double precision, use the statement: 

COMPILER DOUBLE PRECISION 

2. Labeled COMMON takes up space at load time, whereas unlabeled COMMON and 
stack variables and arrays are allocated at the time of execution and dius can use 
tbe space previously occupied by die relocatable loader. 
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DISK BOOTSTRAPPING (HIPBOOT ) 

Disk bootstrapping can be performed by issuing a call to the BOOT routine. After having issued 
this call, HIPBOOT queries the user with: 

FILENAME ? 

after which the user must respond in one of tliree ways: 

1. A carriage return, which indicates the default system SYS. SV and SYS. OL on the 
bootstrap device. 

2. A system save file and overlay file name (the overlay file name must have the . OL 
extension) followed by a carriage return. 

3. A partition name on the bootstrap device, with the partition containing die default 

system save and overlay file names SYS. SV and SYS. OL. 

The system file must be prefixed by a global specifier only when an inter-device bootstrap is being 
performed. If an inter-device bootstrap is performed, i. e. , a bootstrap of the form DRi;ABC where 
DPn is different from the bootstrap device, DRi will become the master device even though a different 
master device may have been specified during the generation of system ABC. 

Not only must a system overlay fUe exist for each system file specified, but each overlay file must 
bear the same name as the system save file, with a . OL extension. 

Any unrecognizable characters input to HIPBOOT will not be accepted: the TTY bell is sounded for 
each such character. Erroneous characters can be deleted by typing the RUBOUT key. On the TTY, 
a left arrow followed by the deleted character is echoed each time the RUBOUT is pressed; on video 
display units, the deleted character is simply erased. 

if after receiving a response to die FILENAME query, HIPBOOT is unauAc to xocate a system 
directory, the message: 

FILE NOT FOUND, FILE: SYS.DR 

will be output. This is a fatal error; full initialization is the only recovery procedure possible. 

For further detail of disk bootstrapping, refer to the RDOS User's Manual, Appendix E. 
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APPENDIX E 
DATA STORAGE AND HANDUNG 



STORAGE OF DATA 
Integers 

Integers are stored iii Lwo'a coinpiement form, using one full lb-bit word. Tte allowable range 
is -2**15-1 to +2**15-1 (-32, 767^^ to 32, 767^^). The storage format is: 



Two's Coiiipleinent Magnitude 



bit 15 

where: s is the sign (0 = plus, 1 = minus) 
Real Numbers 

Real numJDers are stored in two words with the high order word preceding the low order word in 
memory. Position contains the sign , bits 1 through 7 represent the exponent, and bits 8 through 
31 are the mantissa. 

The exponent is represented in excess 64 form, that is, as a seven digit, two's complement integer to which 
is added an offset of 100.. Thus, 



100 is an exponent of 
177 is an exponent of 6 
077 is an exponent of -1 



10 

The mantissa is a normalized hexadecimal fraction between . 0625000 and . 999999. (AU floating point 
numbers in DGC FORTRAN IV computations are maintained in normalized form.) Real numi)ers have 
6 to 7 decimal digits of significance. 

The storage format of real numlDers is: 

bit 78 15 



exponent 



mantissa 



mantissa 



16 31 

Double Precision Numbers 



Double precision numbers are stored in four words. The sign and exponent are stored in the same 
manner as real numbers. The normalized hexadecimal mantissa is stored in the remaining 56 bits. 
Double precision numbers have 16 to 17 decimal digits of significance. 

The storage format of double precision numbers is: 
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STORAGE OF DATA (Continued) 
Double Precision Numbers (Continued) 

bit 78 15 



s I exponent | mantissa 



mantissa 



mantissa 



mantissa 



Complex Numbers 

Complex numbers are stored as two real data. The real part is stored in the first two words and 
the imaginary part in the second two words. The storage format of complex numbers is: 



bit 78 15 

s I exponent | mantissa 



mantissa 



s j exponent | mantissa 



mantissa 



real part 
imaginary part 



Double Precision Complex Numbers 

Double precision complex numbers are stored as two double precision data. The real part is stored 
in the first four words and the imaginary part is stored in the second four words. The storage format 
of double precision complex numbers is: 



bit 






78 15 


2J 


exponent | mantissa 1 


mantissa 


mantissa 


mantissa 


s 


exponent | mantissa ] 


mantissa 


mantissa 


mantissa 



real part 



imaginary part 



String Data 

String data axe stored ascending in core, with one character stored per 8-bit byte (two characters per 
memory word). The leftmost bit of each hiyte is always (jl. 

If the character count of a string is odd, the terminating byte is all zeroes; if the character count is 
even, the string is terminated by a word of all zeroes. However, when a variable is initialized to a 
string datum (DATA statement) and the character count is even, no all-zero word is generated. 

The storage format of string data is: 






78 


15 





chari 





char:? 


3 


charT 





char/j 


• 


'T~ 


char i.iHJ 


chari j 


• 
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STORAGE OF DATA (Continued) 

Logical Data 

One word of all zeroes is stored for the value . FALSE, and one word containing -1 (177777 ) is 
stored for .TRUE.. ° 

DATA HANDLING 

Number Stack 



A stack of 630 octal locations is reserved for storage of numeric values, either as input or output 
or for temporary computational values. 

The number stack expands dynamically as numbers are loaded onto it and contracts as they are 
removed. 

In the event that the number stack is not large enough, the user can alter its size by defining a 
parameter at assembly time by means of the following statements: 



.ENT .FLSZ 

.FLSZ = xxx 
.END 



where: »« is an octal number and the number of locations reserved for the number stack will be: 
2 * XXX +30. 

o 

Byte Manipulation 

String data handlirig is accomplished tiu'ough tlie use of byte pointers. Byte pointers are identical 
to those discussed in "How to Use Nova Computers" except that bit 15 is set to zero if the left byte 
is pointed to and bit 15 is set to one if the right byte is pointed to. 

The format of the byte pointer is: 

bit 15 



Address of 2 packed bytes 



1=R 
0=L 



OVERFLOW CHECKING 

Programmable overflow checking is provided by the library routine OVERF LOW. The calling sequence 
of OVERFLOW is: 



CALL OVERFLOW ($sl^^, Ssl^, l!!0) | 



where: sl^ and SI2 are statement labels. 

V 

Either the literal S or the literal N appears as the third argument. 
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OVERFLOW CHECKING (Continued) 

OVERFLOW checks a system flag to determine whether or not a non-integer arithmetic overflow has 
occurred since the last call to OVERFLOW. If overflow has occurred, control is returned to the 
statement numbered sl^. If overflow has not occurred, control is returned to the statement numbered 
sl2. 

The system overflow flag is reset by any call to OVERFLOW and is only reset by a call to this routine. 

If the argument "N" is given, all error messages will be output. If the third argument is "S" or is 
omitted, messages associated with floating point overflow or underflow will be suppressed. 
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